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ABSTRACT 


The  purpose  of  this  thesis  is  to  present  the  issues  and 
considerations  related  to  the  development  and  implementa¬ 
tion  of  a  user  interface  for  a  microcomputer -based 
application  program.  The  interface  design  goal  is  to  enable 
a  novice  user  to  fully  utilize  all  application  program 
functions  without  prior  training  or  reference  to  a  user's 
manual . 

The  results  of  the  empirical  evaluation  of  the  user 
interface  are  presented  together  with  an  analysis  in  support 
of  the  effectiveness  of  a  proposed  interface  design 
methodology  and  Interface  design  considerations. 
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I. 


INTRODUCTION 


The  relatively  recent,  widespread  proliferation  of 
microcomputers  into  both  the  home  and  work  place  has 
resulted  in  a  shifting  of  computer  operation  and,  in  some 
cases,  programming  tasks,  from  the  traditional  realm  of 
trained,  professional  operators  and  programmers  directly  to 
the  end  user.  Technological  advances  have  reduced  the 
skills  necessary  to  energize  and  physically  communicate  with 
the  hardware.  However,  the  process  of  effectively 
interfacing  with  the  hardware  via  the  constructs  of  software 
of  ever  increasing  complexity,  often  requires  the  new  user 
to  obtain  a  detailed  working  knowledge  of  a  particular 
software  system  before  the  benefits  of  the  system  may  be 
realized. 

This  requirement  seems  contrary  to  the  conjecture 
expressed  by  Coombs  and  Alty  [Ref.  l*.p.  33  that  the  majority 
of  users  do  not  wish  to  be  extensively  trained  in  computing 
and  employers  certainly  wish  to  minimize  user  training 
costs. 

The  purpose  of  this  thesis  is  to  develop  and  evaluate 
the  effectiveness  of  interface  techniques  designed  to  elim¬ 
inate  any  user,  application -specif ic  training  prior  to  ap¬ 
plication  program  use.  In  order  to  provide  an  appreciation 


for 


the  nature  of  interface  design  issues.  Chapter  2 


presents  a  review  and  analysis  of  interface  evolution  and 
the  state  of  current  thinking  relating  to  interface  design. 
Chapter  3  details  the  rationale  and  anticipated  benefits  of 
specific  interface  design  decisions  and  techniques  employed 
in  the  development  of  the  research  interface.  In  Chapter  4, 
the  interface  evaluation  methodology  and  evaluation  results 
are  presented,  discussed  and  analyzed.  Finally,  Chapter  5 
suggests  that  the  concept  of  including  an  interface  require¬ 
ments  specification  into  the  system  design  and  development 
process  is  essential  to  the  production  of  viable  applica¬ 
tions  for  novice  users. 

The  scope  of  this  research  was  intentionally  limited  to 
one  application  program's  Interface  in  order  to  more  fully 
evaluate  the  effect  of  the  employed  Interface.  By  this 
action,  the  empirical  evaluation  results  and  ensuing  conclu¬ 
sions  would  not  be  general  in  nature  and  thus  avoid  a 
recapitulation  of  the  generalized  findings  and  recommend¬ 
ations  currently  presented  in  available  literature. 

Additional  limitations  imposed  upon  the  design  of  the 
specific  interface  were  based  on  the  fact  that  the  target 
microcomputer  system's  hardware  consisted  of  512  kilobytes 
of  main  memory,  two  360  kilobyte  diskette  drives,  a  monitor, 
keyboard  and  printer.  Admittedly,  this  particular  hardware 
configuration  precludes  evaluation  of  such  technically 
feasible  interfacing  approaches  as  the  use  of  light  pens, 
pressure  sensitive  screens  or  voice  command.  However,  the 
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II. 


USER  INTERFACE  ISSUES 


As  a  result,  of  technological  advances  in  the  computer 
field,  a  relatively  new  and  immature  field  of  study  has 
arisen  to  explore  principles  and  methods  for  better  adapting 
computer  systems  to  meet  human  needs.  This  fledgling  field 
has,  as  yet.  no  simple  title  nor  veil  established  repertoire 
of  concepts  and  techniques.  The  field  is  frequently 
referred  to  as  "interface  design*  and  "dialog  engineering* 
CRef.  2:p.  31. 

A.  USER  INTERFACE  EVOLUTION 

Prior  to  the  widespread  use  of  time  sharing  systems,  the 
vast  majority  of  computers  were  operated  in  batch  mode.  As 
a  result  of  batch  processing.  end  users  only  indirectly 
interacted  with  the  computer  via  operations  personnel. 
Consequently,  there  was  no  reason  for  "user  friendly"  inter¬ 
faces  since  the  operators  were  trained  professionals, 
knowledgeable  of  the  requisite  interface  procedures. 

Although  the  introduction  of  time  sharing  systems, 
enabling  direct  user  interaction,  generated  an  acknowledged 
need  for  "user  friendly"  interfaces,  the  pursuit  of  user 
interface  design  attributes  was  relegated  to  academia.  This 
relegation  was  due  to  the  fact  that  time  sharing  systems 
were  achieved  through  the  layering  of  complex  and  costly 


software  onto  existing,  batch  oriented  minicomputers  and 


mainframes,  and  hardware  and  software  providers  did  not  find 
it  economically  feasible  to  reconstruct  new,  coordinated 
systems  for  existing  machines  [Ref.  3:pp.  338-3393. 

The  advent  of  the  microprocessor  has  had  a  profound 
impact  on  the  computer  industry.  One  of  the  most  signifi¬ 
cant  impacts  was  the  dissolution  of  the  long  adhered  to 
premise  that  computers  were  expensive  and  should  be  built 
with  the  minimum  number  of  circuits,  thus  assuring 
efficiency  [Ref.  4:pp.  110-1233.  Consequently,  it  now 
became  both  technologically  and  financially  feasible  to 
consider  the  user's  needs  in  the  hardware  and  software 
design  process. 

B.  THE  PRESENT  INTERFACE  STATE 

With  the  realization  that  it  was  now  technically 
feasible  to  incorporate  interface  considerations  into  the 
design  of  a  microcomputer  system,  such  diverse  professions 
as  educationalists,  psychologists  and  ergonomic  specialists 
began  contributing  to  the  ares  of  interface  design. 
However,  their  findings  and  recommendations  have  not 
produced  significant  advances  in  interface  design  since 
these  non-computer  oriented  professionals  are  rarely  invited 
to  participate  in  the  design  effort.  On  those  occasions 
when  they  have  become  Involved  in  the  system  design  process, 
their  contributions  have  been  somewhat  diminished  due  to  a 
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lack  of  knowledge  and  appreciation  of  the  machine's  capabil¬ 


ities  to  make  things  easier  for  the  user  (Ref.  3*.p.  3391. 

Since  the  mid-1970s  there  have  been  many  studies  and 
much  written  with  respect  to  guidelines  for  the  development 
of  effective  user  interfaces.  Unfortunately  there  is  no 

well  defined  standard  or  authority  and  a  fair  amount  of 
inconsistency  from  source  to  source  CRef.  5:pp.  25-25J. 

Although  there  may  be  inconsistencies  between  any  two 
given  studies,  analysis  of  the  various  studies  in  aggregate 
has  allowed  later  researchers  to  develop  more  comprehensive 
guidelines  based  upon  previous,  incomplete  studies  and  the 
resolution  of  individual  inconsistencies.  Table  1  presents 
a  highly  generalized  summary  of  desirable,  interface  attri¬ 
butes  identified  by  Shnelderman  CRef.  6:pp.  216-244 J.  Gaines 

and  Shaw  CRef  5:pp.  30-44]  have  taken  the  process  one  step 

farther  and  proposed  more  specific,  interface  design  rules. 
These  rules,  together  with  the  general  interface  attributes 
which  they  support,  are  presented  in  Table  2. 

TABLE  1.  DESIRABLE  INTERFACE  ATTRIBUTES 

DESIRABLE  INTERFACE  ATTRIBUTES 

1.  Easy  to  learn. 

2.  Easy  to  use. 

3.  Easy  to  remember. 

4.  Prompt  response  times. 

5.  Reliable. 

6.  Courteous. 

7.  Helpful. 
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TABLE  2.  IHTERFACE  DESIGN  RULES 


INTERFACE  DESIGN  RULE 

SUPPORTED  ATTRIBUTES 

Use  interface  prototype  or  related  system 
when  discussing  the  interface  with  users. 

Easy  to  learn/remeaber 

Develop  interface  using  user's  model. 

Easy  to  learn/remember 

User  should  dominate  computer. 

Easy  to  use 

System  response/activity  should  be  clear 
consequence  of  user's  actions. 

Easy  to  learn, helpful, 
reliable 

System  should  adapt  to  user's  expertise. 

Easy  to  use 

Provide  for  uniformity  and  consistency. 

Easy  to  learn/remember 

Ensure  requisite  information/memory  aids 
are  available  to  user  throughout  system. 

Easy  to  use,  helpful 

User  manuals  should  be  based  on  actual 
user  dialog. 

Easy  to  learn,  use  and 
remember,  helpful 

Train  through  experience. 

Easy  to  learn/remeaber 

Hake  immediate,  clear  responses  to  inputs. 

Courteous,  prompt 

Validate  data  on  entry. 

Reliable,  courteous 

Provide  a  reset/abort  command. 

Easy  to  use,  reliable 

Hake  corrections  through  re-entry. 

Reliable 

Although  Shneiderman ' s  interface  attributes  and  Gaines' 
and  Shav's  rules  provide  general  direction  for  interface 
design,  there  remains  much  leeway  for  system  design  and 
programming  personnel  as  to  the  actual  implementation  and 
interpretation  of  these  attributes  and  rules.  Peterson's 


and  Si lberschatz ' s  observation  seems  to  concisely  sum  up 


the  current,  state  of  user  interface  design  t 

Users  desire  certain  obvious  properties  in  a  systes.  The 
system  should  be  convenient  to  use,  easy  to  learn,  easy  to 
use,  reliable,  safe,  and  fast.  Of  course,  these  specifi¬ 
cations  are  not  very  useful  in  the  system  design,  since 
there  is  no  general  agreement  on  how  to  achieve  these 
goals.  CRef.  S:p.  441 


ir^mvart 
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III. 


Due  to  the  myriad  of  possible,  interactive  computer 
applications,  the  specific  application  program  and  user 
group  will  often  dictate  the  manner  and  degree  of  implemen¬ 
tation  of  the  generalized  guidelines  found  in  literature 
concerned  with  interface  design. 


A.  THE  APPLICATION  PROGRAM 

Although  this  research  project  is  concerned  with  the 
user  interface,  it  was  deemed  necessary  to  develop  an  appli¬ 
cation  program  with  which  to  interface  and  to  provide  direc¬ 
tion  to  the  interface  development. 

The  actual  methods  employed  by  the  application  program 
to  satisfy  the  user's  functional  requirements  are  not  ger¬ 
mane  to  this  research  effort.  Therefore  only  a  brief 
description  of  the  program's  overall  function  is  provided  to 
establish  a  frame  of  reference. 

The  application  program  was  developed  specifically  for 
the  accountant  of  the  Army  Emergency  Relief  organization 
(AER)  at  Fort  Ord,  California.  AER's  function  is  to  provide 
no  interest  loans  to  military  personnel  (primarily  army)  who 
satisfactorily  demonstrate  a  valid  need  for  financial 
assistance.  The  accountant's  primary  function  is  to  record 
disbursement  of  the  loan,  post  loan  repayments  to  applicable 
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loan  accounts  and  general  ledger,  and  advise  higher 


authority  of  any  financial  deviations  or  problems  with 


respect  to  individual  loan  accounts.  A  secondary  function 


requires  the  AER  accountant  to  provide  statistics  of  varying 


natures  to  higher  authority  upon  request.  Since  a  service 


member  may  have  multiple,  concurrent  loans,  the  nominal  size 


of  AER's  data  base  is  on  the  order  of  1900  to  2100  members 


and  2900  to  3200  loans.  The  AER  application  program  basic¬ 


ally  provides  for  maintenance  of  individual  loan  accounts. 


general  ledger  and  statistical  information. 


B.  APPLICATION  PROGRAM  DESIGN  THEORY 


Much  has  been,  and  continues  to  be,  written  regarding 


computer  program  design  and  development.  While  various 


design  and  development  methodologies  are  advocated  in  the 


literature,  all  have  the  expressed  goal  of  producing  good. 


working  programs. 


Unfortunately,  it  seems  as  if  the 


majority  of  methodologies  stress  design  and  development  of 


the  functional  elements  of  a  program  with  the  user  interface 


being  of  secondary  concern.  In  other  words,  once  the  func¬ 


tional  aspects  of  a  program  have  been  defined  and  designed. 


the  interface  is  designed  to  fit  the  functional  design 


structure. 


The  theory  underlying  the  methodology  used  in  the  design 


and  development  of  this  research  project  is  essentially  a 


reversal  of  current  design  and  development  methodologies. 


v  >V' 


The  theory  proposes  definition  snd  design  of  the  Interface 


prior  to,  or  at  least  concurrent  with,  functional  design. 

This  development  approach  is  intended  to  place  the  Interface 

issue  at  the  forefront.  Thus,  functional  design  is  driven 

not  only  by  requirements  specifications,  but  by  Interface 

considerations  as  veil.  While  this  approach  may  Increase 

the  difficulty  and  complexity  of  functional  element  design, 

the  actual,  internal  methods  employed  are  usually  of  little 

concern  to  the  user.  Assuming  the  system  meets  the  user's 

functional  specifications,  the  Interface  becomes  the  primary 

user  issue.  As  noted  by  Eason  and  Damodaran  vith  respect  to 

users'  perceptions  of  a  computer  systems 

It  is  of  little  Interest  to  him  [the  user!  that  the  sys¬ 
tem  is  a  technical  masterpiece,  or  that  it  serves  another 
user  very  well;  if  it  serves  his  task  needs  poorly,  it 
stands  condemned  as  a  poor  system.  [Ref.  7sp.  1161 

Since  the  goal  of  this  research  is  to  develop  a  system 

requiring  no  user  training  prior  to  use  of  the  application 

program,  interface  issues  are  of  paramount  concern.  In  the 

following  sections  of  this  chapter,  the  Issues  pertaining  to 

the  design  and  implementation  of  the  research  interface  are 

presented  and  discussed. 

C.  INTERFACE  DESIGN  PHILOSOPHY 

Traditionally,  the  design  of  a  "core”  program  to  satisfy 
the  user's  functional  requirements  would  be  relatively 
straight  forward.  The  goal  is  well  defined;  design  the 
"core”  program  to  perform  the  specified  requirements.  Since 
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the  actual  workings  of  this  portion  of  the  program  are 
invisible  to  the  user,  one  need  only  consider  the  technical 
aspects  of  the  task;  the  user  is  of  secondary  concern. 

However,  the  approach  taken  in  the  design  of  the 
research  program  requires  that  "core"  related  design 
decisions  be  made  with  respect  to  both  the  requirements 
specifications  and  interface  considerations.  Since  a 
project's  requirement  specifications  serve  as  the  benchmark 
against  which  a  program's  functionality  is  assessed,  the 
same  approach  was  used  with  respect  to  interface  design. 

Unlike  the  requirement  specification,  which  may  be 
stated  in  such  measurable  metrics  as  response  times  and 
throughput  rates,  the  interface  specification  is  much  more 
nebulous.  The  exact  meanings  of  terms  such  as  "easy  to  use” 
and  "friendly"  are  highly  individualistic  and  ambiguous.  As 
a  result,  it  is  left  to  the  designer  or  programmer  to 
produce  their  interpretation  of  these  ambiguous  terms. 

In  order  to  develop  an  Interface  requirements 
specification,  the  attributes  of  a  novice  computer  user  were 
analyzed. 

The  term  "novice  user"  is  assumed  to  apply  to  an 
individual  who  is  not,  nor  desires  to  become,  an  expert  in, 
or  familiar  with,  computer  technology,  but  uses  a  computer 
to  assist  in  the  performance  of  assigned  tasks.  A  generally 
accepted  attribute  of  the  novice  user  is  the  overall  percep¬ 
tion  of  the  computer  as  a  tool  to  assist  in  the  performance 


of  a  task.  If  the  user  deems  the  tool  inappropriate  for  the 


task  at  hand  or  the  effort  to  use  the  tool  exceeds  the 
return,  the  tool  will  experience  little  to  no  use. 

Based  on  the  attributes  of  a  novice  user,  several 
assumptions  were  generated  which  formed  the  basis  for  the 
formulation  of  user  interface  specifications.  First,  the 
novice  user's  interests  and  aspirations  lay  outside  the 
computer  field  and  only  limited  time  and  effort  could  be 
expected  to  be  devoted  to  mastering  the  application  system. 
Second,  the  user  would  view  the  resulting  system  as  a  means 
to  an  end  and  not  an  end  in  Itself,  thus  desiring  to 
minimize  time  and  effort  devoted  to  system  operation  and 
output  interpretation.  Finally,  the  user  would  desire 
Immediate  answers  to  questions  about  the  system  without 
lengthy  and  time  consuming  reference  to  user  and  technical 
manuals. 

As  a  result  of  the  analysis  and  assumptions,  an 
interface  requirements  specification  was  developed  in  the 
form  of  a  questionnaire,  against  which  candidate  interface 
designs  were  evaluated  prior  to  implementation.  The 
contents  of  this  questionnaire  are  presented  as  Table  3. 

Only  after  an  Interface  design  idea  met  the  requirements 
of  the  interface  specification  vere  the  technical  implemen¬ 
tation  Issues  addressed.  Basically,  the  design  philosophy 
was  to  adapt  the  program  to  the  needs  of  the  user  versus 
forcing  -the  user  to  adapt  to  the  needs  of  the  program. 
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TABLE  3 


RESEARCH  INTERFACE  REQUIREMENTS  SPECIFICATION 


INTERFACE  REQUIREMENTS  SPECIFICATIONS 

RESPONSE 

1. 

Does  the  Interface  contain  references,  concepts  or  words 
words  unique  to  the  computer  field? 

No 

2. 

Does  the  interface  require  user  inputs/actions  which 
have  no  identifiable  counterpart  or  rationale  in  the 

No 

i 

corresponding  manual  process? 

No 

3. 

Does  the  interface  contain  all  necessary  information  to 
accomplish  the  desired  operation? 

Yes 

4. 

Does  the  interface  require  the  minimum,  necessary  user 
actions  to  complete  the  operation? 

Yes 

5. 

Is  the  interface  consistent  with  previously  developed 
interfaces? 

Yes 

6. 

Does  the  interface  provide  for  immediate  and  positive 
error  detection  and  correction/recovery? 

Yes 

_ ! 

D.  THE  USER  COMMAND  INTERFACE 

Since  the  target  computer  system's  primary  input  device 
was  the  keyboard,  there  appeared  only  three  viable  command 
entry  modest  a  menu  system,  a  command  language  or  a 
combination  of  the  two.  The  selection  of  a  menu  system  for 
the  research  interface  reflects  the  observation  of  Reid 
that : 

Menus  have  been  recommended  for  occasional  and  novice 
users  as  they  reduce  the  amount  of  information  the  user 
needs  to  remember.  tRef.  9:p.  Ill] 

As  with  many  concepts,  there  are  some  disadvantages 

associated  with  a  menu  driven  system,  which,  if  not  handled 

effectively,  can  negate  the  concept's  overall  usefulness. 
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The  mere  fact  that  the  display  screen  of  a  computer  system 
encompasses  a  finite  area  limits  the  number  of  options  which 
may  be  displayed  on  a  given  screen. 

If  a  system  offers  more  options  than  can  be  displayed  on 
one  screen,  it  may  be  tempting  to  reduce  the  space  occupied 
by  each  option  description.  However,  if  the  option 
descriptions  become  too  cryptic,  the  primary  advantage  of  a 
menu  system  is  lost  as  the  user  now  must  acquire  and 
remember  the  meaning  of  each  option. 

Another  alternative  would  be  a  system  of  layered  menus, 
where  the  selection  of  an  option  from  the  primary  or  main 
menu  would  produce  another  menu  and  so  on  until  the  menu 
containing  the  desired  operation  was  encountered.  The  main 
problem  associated  with  this  approach  is  one  of  navigation. 
As  one  progresses  through  successive  menu  layers,  it  becomes 
difficult  to  determine  one's  location  in  the  system  relative 
to  a  known  point  of  reference,  in  this  case  the  main  menu 
[Ref.  9:p.  111].  Loss  of  a  frame  of  reference  can 
disorient  and  confuse  the  user,  as  humans  are  accustomed  to 
using  the  space  and  objects  around  them  for  organization  and 
establishment  of  frames  of  reference  CRef.  10: pp.  1-3]. 

The  research  program  has  47  different  options.  Since 
all  47  could  not  be  displayed  on  a  single  screen  without 
becoming  too  cryptic,  a  Bystem  was  required  that  preserved 
the  advantages  of  a  menu  driven  system  and  avoided  the 
potential  disadvantages.  The  resulting  main  menu  consists 
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of  the  10  general  operations  depicted  In  Figure  1,  through 
which  all  47  options  are  accessible.  Limiting  the  main 
menu  to  10  operations  provided  enough  room  for  non -cryptic 
operation  identification.  However,  this  action  necessitated 
a  layering  of  subordinate  menus.  To  avoid  the  navigation 
problem,  these  subordinate  menus  are  presented  as  windows  or 
panels  on  top  of  the  main  menu.  The  intent  of  this  approach 
is  to  create  the  illusion  that  the  user  is  still  in  the  main 
menu  section  of  the  program,  thus  preserving  the  user's 
frame  of  reference.  Figure  2  shows  an  example  of  operation 
three's  subordinate  menu.  Since  many  of  the  available 
operations  use  the  same  input/output  displays,  there  are 
only  six  display  screens,  including  the  main  menu,  in  the 
system.  Depending  upon  which  option  is  selected  the  user 
will  see  one  of  five  input/output  screens.  The  only  place 
the  user  can  go  from  an  input/output  screen  is  back  to  the 
main  menu.  Thus  there  is  no  navigation  problem  for  the  user 
to  contend  with;  the  user  is  either  viewing  the  main  menu  or 
an  input/output  screen. 


E.  INTERFACE  DIALOG  DESIGN 

For  the  purposes  of  designing  the  research  interface, 
the  term  dialog  was  defined  as  two-way  communication. 
Stoner  notes  that  two-way  communication  is  a  complex  process 
where  a  receiver  provides  feedback  to  the  sender  of  a 
message  (Ref.  11  :p.  496-4993.  In  the  case  of  the  research. 


rr. 


Research  Interface  Main  Menu  Display 


application  program,  the  user  is  considered  the  sender  and 
the  program  the  receiver  providing  feedback. 

When  humans  receive  feedback,  there  is  more  involved 
than  simply  content.  The  message  is  evaluated  with  respect 
to  the  source,  read  between  the  lines  for  hidden  meanings, 
and  words  interpreted  with  respect  to  our  understanding  of 
the  word.  CRef.  12: pp.  238-2461 

Since  feedback  can  convey  more  than  physical  message 
content,  a  detailed  analysis  and  design  of  the  feedback 
mechanism,  with  emphasis  on  human  perceptions  and 
attributes,  was  seen  as  a  means  to  convey  the  image  of  a 
"friendly"  system  to  the  user. 

The  primary  perception  the  interface  was  designed  to 
convey  was  system  servility.  By  so  doing,  it  was  envisioned 
that  the  novice  user  would  view  the  system  as  a  capable  and 
willing  servant  and  not  a  system  requiring  user  submission. 

The  resulting  system  prompts  for  user  actions  were 
simply  displayed  as  requests  versus  commands.  Instead  of 
displaying  a  message  such  as:  Enter  the  desired  option,  the 
message  was  displayed  as:  Please  enter  the  desired  operation 
number.  The  innocuous  inclusion  of  the  word  "please* 
changes  the  perception  of  the  message  from  a  command  to  a 
request,  and  may  even  convey  the  impression  of  a  personable, 
polite  computer. 

The  other  type  of  system  message  analyzed  was  the  error 
message.  To  maintain  the  perception  of  system  servility. 


error  messages  of  an  informative  nature  were  designed  to  be 
almost  apologetic  as  opposed  to  cryptic  chastisements.  An 
example  of  an  informational  error  message  is  the  case  where 
the  user  requests  display  of  information  not  held  in  the 
system.  The  system  responds  with:  "I'm  sorry,  I  can't  seem 
to  locate  the  desired  account*. 

Error  or  abnormal  situation  messages  requiring  user 
action,  are  presented  as  a  system  plea  for  user  assistance. 
The  intended  user  perception  of  these  messages  is  that  the 
user  is  in  complete  control  of  a  personified  system.  Figure 
3  is  depicts  the  abnormal  situation  message  displayed  when 
the  system  cannot  determine  to  which  loan  the  payment  is  to 
be  applied.  Figure  4  is  the  window  displayed  when  a  printer 
fault  is  detected. 

The  final  type  of  error  response  coded  into  the  system 
consists  of  a  short,  audio  "beep”  when  illegal  keyboard 
entry  is  detected.  Whenever  a  key  is  depressed,  the  system 
immediately  analyzes  the  input  to  determine  compatibility 
with  the  type  of  input  field.  If  it  is  a  valid  entry,  the 
character  is  displayed,  otherwise  the  "beep”  sound  is 
produced.  The  user  receives  instantaneous  feedback  and  does 
not  waste  time  and  effort  entering  an  entire  data  string 
only  to  be  informed  after  entry  that  it  is  an  invalid  input. 

Although  the  audio  signal  alone  does  not  identify  the 
exact  error,  the  accompanying  field  windows  are  designed  to 
contain  all  requisite  information  to  enable  the  user  to 
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determine  the  necessary  input.  The  audio  signal  is  designed 


primarily  as  a  courtesy  to  inform  the  user  of  accidentally 
depressed  keys  while  protecting  the  system  from  input  type 
mismatches. 

F.  THE  ESCAPE  MECHANISM 

Assuming  a  novice  user  will  probably  probe  the  system 

during  the  familiarization  process,  it  was  decided  to 

Install  a  mechanism  which  would  immediately  halt  whatever 

process  the  user  was  doing  and  return  to  the  main  menu.  As 

recommended  by  Gaines  and  Shaw  t 

Provide  a  reset  command  that  cleanly  aborts  the  current 
activity  back  to  a  convenient  checkpoint.  The  user  should 
be  able  at  any  stage  in  a  transaction  to  abort  it  cleanly 
with  a  system  command  that  takes  him  back  to  a  well  de¬ 
fined  checkpoint  as  if  the  transaction  had  never  been  in¬ 
itiated.  [Ref.  5:p.  423 

The  system  command  selected  for  the  research  program  was  the 
Esc  key.  In  order  to  preserve  simplicity  and  limit  the 
amount  of  system  related  knowledge  required  of  the  user,  the 
Esc  key  is  the  only  "special  function"  key  the  user  must 
remember.  To  aid  the  user's  retention,  many  of  the  system 
prompts  contain  reference  to  the  Esc  key. 

G.  ERGONOMIC  CONSIDERATIONS 

The  primary  issue  in  this  area  was  to  develop  the 
physical  actions  necessary  for  communicating  with  the  system 
which  would  not  be  ambiguous  or  meaningless  to  the  novice 
user  while  not  frustrating  or  impeding  the  user  as  more 
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experience  was  gained.  Analysis  of  this  issue  revealed  two 
primary  areas  warranting  in-depth  design  consideration. 

The  first  area  considered  was  direction  of  the  system. 
The  selection  of  a  menu  driven  system  with  its  enumerated 
options  seemed  a  viable  method  of  direction  for  both  the 
novice  and  expert.  Since  the  menu  identifies  the  available 
options,  the  novice  user  has  all  the  requisite  information 
available  to  initiate  the  desired  process.  For  the  user  who 
has  gained  familiarity  with  the  system,  the  process  of  op¬ 
tion  selection  is  fast,  requiring  only  those  keystrokes 
necessary  to  select  the  option.  There  are  no  special  keys, 
complex  keystroke  sequences,  or  English-like  commands  to 
confuse  the  novice  or  slow  down  the  expert.  To  further  ease 
the  selection  process,  the  numeric  keypad  was  placed  in  the 
numeric  entry  mode  by  the  program.  While  the  horizontally 
arranged,  numeric  keys  across  the  top  of  the  keyboard  remain 
functional,  the  numeric  keypad  allows  all  necessary  opera¬ 
tion  selection  and  numeric  data  entry  to  be  performed  from 
one  keyboard  location  with  a  minimum  of  physical  movement. 

The  decision  to  use  numeric  option  selection  codes  was 
influenced  by  the  ability  of  humans  to  cognitively  process 
numbers  faster  <27-39  msec/number)  than  letters  or  icons 
<40-93  msec/item)  [Ref.  13:p.  43].  If  the  user  is  not  an 
accomplished  typist,  numeric  entry  should  be  easier  and 
quicker  than  having  to  search  the  standard  "QWERTY"  keyboard 
for  the  desired  letter. 
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The  other  area  considered  involved  the  implementation 


of  an  on-line  assistance  facility.  In  order  to  provide  max¬ 
imum  assistance  to  the  novice  user  and  not  impede  the 
expert,  help  panels  or  windows  describing  the  purpose  or 
required  input  field  contents  are  displayed  by  default.  By 
so  doing,  the  novice  user  requires  no  knowledge  of  a  special 
mechanism  to  invoke  on-line  assistance.  Since  there  is  no 
invoking  mechanism,  there  is  no  change  of  program  mode  from 
the  current  process,  to  the  assistance  mode,  then  back  to 
the  process.  Thus  the  expert  user  may  ignore  the  assistance 
display  and  continue  as  if  the  display  was  not  present.  An 
example  of  an  assistance  window  is  presented  in  Figure  5. 

Since  the  target  system's  keyboard  has  a  numeric  keypad, 
the  system  allows  numeric  entry  from  the  numeric  keypad  for 
purely  ergonomic  reasons  of  speed  and  physical  ease  of  data 
entry.  The  numeric  keys  across  the  top  of  the  keyboard  may 
also  be  used,  however,  the  physical  arrangement  of  the 
numeric  keypad  reduces  then  time  and  movement  necessary  to 
enter  a  desired  numeric  input. 

H.  DISPLAY  COLOR  CONSIDERATIONS 

Colors  in  themselves  were  not  seen  as  an  information 
transmittal  medium.  Color  combinations  were  selected  when 
necessary  to  draw  user  attention.  Light,  complementary 
colors  were  used  overall  to  provide  a  soothing  display.  The 
background  is  a  very  light  blue,  lines  are  in  light  yellow 


and  column  headings  are  in  while. 


The  assistance  windows 


consist  of  a  red  background  with  white  and/or  black  fore¬ 
ground  characters.  The  choice  of  red  for  assistance  window 
backgrounds  is  not  meant  to  imply  an  emergency  situation, 
but  merely  to  contrast  with  the  overall  blue  background  and 
thus  draw  attention  to  the  window. 

I.  DESIGN  SUMMARY 

The  purpose  of  this  chapter  is  not  to  provide  specific 
interface  implementations,  as  it  is  realized  that  the 
specific  application  will  largely  determine  the  interface 
structure.  Rather,  the  intent  is  to  propose  some  basic 
philosophies  that  may  be  useful  when  designing  an  interface. 
A  summary  of  the  research  interface  constructs  and  Table  1 
attributes  supported  is  presented  as  Table  4. 

As  previously  noted,  the  primary  philosophy  behind  the 
majority  of  the  research,  interface,  design  decisions  was  to 
adapt  the  system  to  the  user  and  not  require  the  user  to 
adapt  to  arbitrarily  defined  constructs  of  the  system.  It 
is  realized  that  there  are  unavoidable  constructs  to  which  a 
user  must  adapt,  such  as  using  the  keyboard  for  communica¬ 
tion.  However,  adherence  to  this  primary  philosophy  by 
system  designers  and  programmers  should  reduce  or  eliminate 
the  number  of  arbitrary  constructs  introduced  into  the 
system. 
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TABLE  4. 


INTERFACE  ATTRIBUTES  SUPPORTED  BY 
THE  RESEARCH  INTERFACE 


RESEARCH  INTERFACE  CONSTRUCT 

SUPPORTED  ATTRIBUTE 

1. 

Henu  command  system. 

Easy  to  learn/use/ 
remember. 

2. 

Sub-menu  display  overlays. 

Easy  to  use, helpful. 

3. 

Entry  type  checking  upon  individual 
character  entry  with  audio  error  signal. 

Prompt  response, 
reliable. 

4. 

Default  display  of  assistance/instruction 
windows. 

Easy  to  use, helpful. 

5. 

Content  of  assistance/instruction/error 
windows. 

Courteous,  helpful. 

6. 

Display  coloration. 

Helpful. 

7. 

No  multi/special  function  keys  other  than 
the  ESC  key. 

Easy  to  learn/use/ 
remember,  reliable. 

8. 

Consistent  displays  and  I/O  requirements. 

Easy  to  learn/use/ 
remember,  helpful, 
reliable. 

3. 

Activation  of  numeric  keypad  for  option 
selection  and  data  entry. 

Easy  to  use. 

10. 

Use  of  ESC  key  to  abort  any  process  at  any 
operation  at  any  time. 

Easy  to  learn /use 
remember,  prompt 
response,  helpful, 
courteous. 

A  supporting  philosophy  or  concept  suggests  a 
realization  by  design  and  programming  personnel  that  the 
user  of  the  resulting  system  probably  does  not  have  an 
interest  in  the  computer  field  and  views  the  system  simply 
as  a  means  or  tool  to  assist  in  the  performance  of  a  task  or 
function.  The  implication  of  this  concept  is  that  interface 


constructs  which  are  meaningful  to  development  personnel. 


due  to  their  level  of  computer  expertise,  may  be  quite 
meaningless  or  confusing  to  the  end  user.  It  is  therefore 
proposed  that  interface  design  decisions  should  be  made 
under  the  assumption  that  the  user  has  no  knowledge  of  the 
computer  field  and  with  respect  to  user  perceptions  and 
expectations . 
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IV.  EVALUATION  QF  THE  RESEARCH  INTERFACE 


In  order  to  assess  the  validity  of  the  assumptions  and 
theories  underlying  development  of  the  research  interface 
and  the  results  of  their  aggregation,  it  was  deemed  approp¬ 
riate  to  evaluate  the  resulting  interface  on  novice  users. 
The  purpose  of  this  chapter  is  to  present  the  evaluation 
methodology  and  results  of  the  evaluation. 

A.  EVALUATION  METHODOLOGY 

The  basic  methodology  required  a  novice  user  to  attempt 
ten  predefined  operations  with  the  application  system. 
Although  the  application  system  provides  for  47  different 
operations,  many  are  minor  variations  of  a  general  opera¬ 
tions.  The  ten  operations  selected  for  evaluation  were 
representative  of  ten  general  areas.  The  user  was  first 
given  a  written  description  of  the  evaluation  procedure  and 
a  brief  background  scenario  to  establish  the  interaction 
environment.  The  user's  performance  was  then  observed, 
noting  actions  taken  or  not  taken  and  problems  encountered. 
Upon  completion  of  the  ten  operations,  the  user  was  given 
the  questionnaire  reproduced  as  Figure  6  to  record  his 
impressions  and  feelings  about  the  evaluation  session.  The 
background  scenario  and  performance  tasks  used  for  the 
evaluation  process  are  presented  as  Appendix  A. 
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EXPERIMENT  QUESTIONNAIRE 


Please  answer  the  following  questions  by  circling  the  response  which 
best  describes  your  opinion. 

1.  I  found  the  color  schemes  displayed  on  the  computer  screen: 

A.  Distracting  B.  Had  no  real  affect  C.  Helpful  D.  Ve' y  Helpful 

2.  I  found  the  *Beep*  sound  when  I  made  a  typing  error: 

A.  Distracting  B.  Had  no  real  affect  C.  Helpful  D.  Very  Helpful 

3.  The  overall  appearance  and  layout  of  the  computer  screens  was: 

A.  Distracting  B.  Had  no  real  affect  C.  Helpful  D.  Very  Helpful 

4.  The  appearance  of  the  assist  windows  or  panels  was: 

A.  Distracting  B.  Had  no  real  affect  C.  Helpful  D.  Very  Helpful 

5.  The  information  contained  in  the  assist  windows  or  panels: 

A.  Distracting  B.  Had  no  real  affect  C.  Helpful  D.  Very  Helpful 

6.  The  ability  to  return  to  the  main  menu  at  any  time  by  pressing 
ESC  is: 

A.  A  bad  concept  B.  Okay  in  some  situations, not  all  C.  Ho  opinion 
D.  Reassuring  E.  Highly  reassuring 

7.  In  general,  I  felt: 

A.  The  program  was  very  difficult  to  work  with. 

B.  The  program  neither  helped  or  hindered  my  accomplishment  of  the 

various  operations. 

C.  The  program  helped  in  my  accomplishment  of  all  the  operations. 

D.  The  program  greatly  helped  in  my  accomplishment  of  all  the 

operations. 

8.  Assuming  you  are  an  experienced  AER  accountant  and  were  given  a 
computer  and  this  program,  do  you  feel  you: 

A.  Would  desire  extensive  training  before  using  this  program? 

B.  Would  desire  some  training  before  using  this  program? 

C.  Would  require  no  training  to  use  this  program? 

9.  I  would  summarize  my  feelings  about  this  computer  session  as: 

A.  Frustrating  B.  Challenging  C.  No  opinion 

D.  Satisfying  E.  Very  Satisfying 

10.  The  xollowing  is  optional,  however,  any  comments  or  recommenda¬ 

tions  regarding  your  session  with  the  program  would  be  greatly 
appreciated. 


Figure  6.  Evaluation  Session  Questionnaire 
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As  previously  noted,  the  development  objective  of 
allowing  a  novice  user  to  use  the  system  without  prior 
training  is  based  on  the  assumption  that  the  user  is 
familiar  with  the  processes  and  procedures  required  for 
manual  accomplishment  of  the  various  tasks.  In  order  to 
maintain  the  validity  of  this  assumption,  evaluation  session 
users  were  selected  from  personnel  assigned  to  the  installa¬ 
tion  activity.  The  intention  of  limiting  the  scope  of  pro¬ 
spective  evaluation  session  users  was  to  increase  the 
probability  that  the  participants  would  posses  enough 
knowledge  of  the  target  user's  job  functions  to  allow  for  a 
meaningful  evaluation  of  the  system  interface.  The  only 
other  user  selection  criteria  was  the  requirement  that 
participants  have  no  prior  experience  with  a  microcomputer 
based  system. 

Due  to  the  small  size  of  the  installation  activity  and 
the  restrictions  placed  on  the  selection  of  evaluation 
session  participants,  a  total  of  six  participated  in  the 
interface  evaluation.  While  it  may  appear  that  six  evalua¬ 
tions  are  not  statistically  significant,  the  extremely  high 
data  correlation  of  the  individual  results  Implies  further 
evaluations  probably  would  not  have  generated  significantly 
different  results. 
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EVALUATION  SESSION  OBSERVATIONS 


Aggregate  analysis  of  the  observations  recorded  during 
the  interaction  sessions  revealed  two  distinct  behavior 
patterns  which  resulted  in  the  classification  of  the  users 
as  type  A  and  B. 

Although  all  participants  were  Informed  that  any 
actions,  short  of  physical  violence,  would  not  damage  the 
computer  or  the  program  and  were  encouraged  to  experiment, 
this  seemed  to  have  had  little  impact  on  their  Initial 
actions.  Each  participant  appeared  to  approach  the  first 
task  with  extreme  trepidation.  Having  correctly  determined 
the  option  number  required  for  the  operation,  users  were 
observed  to  make  several  false  starts  before  physically 
selecting  the  option.  Following  each  aborted  keystroke  the 
participant  would  return  to  an  examination  of  the  main  menu. 
Once  the  selection  was  finally  made  and  the  Input/output 
screen  appeared  on  the  display  screen,  each  participant  was 
observed  to  display  one  of  two  reactions.  Users  later 
categorized  as  type  A  would  immediately  begin  intense 
examination  of  the  new  display.  Type  B  users  would 
Invariably  allow  themselves  an  audio  and/or  physical 
expression  of  self  satisfaction  before  turning  their 
attention  to  the  new  display. 


Having  correctly  invoked  the  input  screen  for  the  first 
operation,  both  user  types  successfully  completed  the 
required  input  actions  and  returned  to  the  main  menu  upon 
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completion . 


However,  type  A  users  were  observed  to  proceed 
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with  the  data  entry  process  at  a  slower  pace  than  type  B 
users.  When  the  audio,  error  signal  was  produced,  signi¬ 
fying  illegal  data  entry,  type  B  users  recovered  faster  than 
type  A  users,  and  were  quicker  tc  correct  their  mistake  and 
proceed.  Type  A  users  responded  to  the  error  signal  by 
returning  to  an  intense  examination  of  the  display. 

All  participants  exhibited  a  positive  learning  curve  as 
inferred  by  steady  increases  in  task  performance  speed  as 
the  session  progressed.  Although  the  sessions  were  not 
timed,  type  B  users  tended  to  spend  progressively  less  time 
evaluating  and  reacting  to  each  new  display  screen.  Type  A 
users  continued  methodical  examination  of  each  display,  with 
an  observable  Increase  in  data  entry  and  option  selection 
speeds. 

Analysis  of  the  observations  seems  to  suggest  defini¬ 
tive  characteristics  of  the  two  user  -types.  The  two  type  A 
users  appeared  uncomfortable  with  the  trial  and  error 
approach  of  operation  accomplishment.  Much  time  was  spent 
analyzing  the  displays  as  if  searching  for  information  which 
would  reduce  the  risk  of  the  next  keystroke.  Type  A  users 
seemed  highly  task  oriented,  resenting  anything  perceived  as 
barring  task  accomplishment.  If  these  users  experienced  any 
self  satisfaction  of  increased  confidence  in  their  abilities 
to  interact  with  the  system,  it  was  not  observable. 
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Type  B  users  seemed  to  display  an  entirely  different 


approach  to  the  tasks.  They  were  more  prone  to  experimenta¬ 
tion  and  displayed  obvious  satisfaction  upon  successful  com¬ 
pletion  of  seemingly  trivial  tasks.  Type  B  users  appeared 
to  develop  a  familiarity  with  system  constructs  and  charac¬ 
teristics  more  rapidly  than  type  A  users.  While  type  A 
users  seemed  to  view  each  new  operation  as  disjoint  from 
previous  operations,  type  B  users  tended  to  recognize  and 
transfer  the  lessons  learned  from  previous  operations.  Type 
B  user  sessions  tended  to  evolve  into  a  friendly  competition 
between  man  and  machine  with  the  users  frequently  issuing 
friendly,  verbal  challenges  to  the  computer. 

C.  POST-SESSION  QUESTIONNAIRE  ANALYSIS 

The  tabulated  responses  to  the  post-session  question¬ 
naire  (Figure  6)  are  presented  in  Table  4.  As  may  be  noted, 
responses  to  the  first  six  categories  relating  to  Interface 
design  constructs  were  awarded  the  highest  ratings.  This 
positive  feedback,  coupled  with  the  fact  that  all  partici¬ 
pants  successfully  completed  all  operations  tends  to  suggest 
that  the  interfaces  associated  with  each  operation  were 
sufficient  to  permit  accomplishment.  The  responses  to 
question  seven,  dealing  with  overall  ease  of  use,  supports 
the  previous  six  responses  in  aggregate. 

Responses  to  question  eight,  concerning  prior  training 
desirability,  were,  initially,  the  most  disturbing,  as  the 
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TABLE  5.  POST  EVALUATION  SESSION  QUESTIONNAIRE 
RESPONSE  DISTRIBUTION 


The  interviews  disclosed  two  basic  reasons  for  the 
responses.  First,  there  was  an  assumption  by  the  partici¬ 
pants  that  the  program  had  more  capabilities  than  those  to 
which  they  had  been  exposed.  Thus,  prior  training  would  be 
necessary  to  enable  effective  realization  of  those  unknown 
capabilities.  The  other  reason  had  to  do  with  the  applica¬ 
tion  for  which  the  program  was  designed.  The  application 
program  was  designed  for  the  organization's  accountant.  As 
recommended  by  Gaines  and  Shaw  [Ref.  5:p.  30J,  the  system 

was  developed  to  emulate  the  user's  model  of  the  programed 
functions.  As  a  result  many  of  the  Interfaces  employ  ac¬ 
counting  terminology  and  procedures.  Though  five  of  the 

participants  had  a  general  knowledge  of  the  account's 
duties,  none  were  well  versed  in  the  specifics  of  the 
accounting  field.  As  a  result,  one  underlying  reason  for 
the  given  response  was  an  Identified  deficiency  in  the  area 
of  accounting.  This  revelation  diminished  the  usefulness  of 
the  overall  response  for  interface  evaluation  purposes,  as 
one  of  the  assumptions  upon  which  the  interface  design  is 
based  is  user  knowledge  of  the  functional  aspects  of  the 
application. 

Of  the  responses  to  question  nine,  which  requested  a 
subjective  judgement  of  the  evaluation  session  in  general, 
four  participants,  classified  as  type  B  users,  considered  it 
very  satisfying.  Of  the  two  type  A  users,  one  judged  the 
session  as  satisfying  and  the  other  as  challenging.  It  was 
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noted  that  the  individual  evaluating  the  session  a  chal¬ 
lenging,  had  a  particularly  difficult  time  understanding  the 
accounting  terminology,  requiring  frequent  explanations  by 
analogy  throughout  the  session.  The  reasons  given  as  to  why 
a  rating  of  very  satisfying  was  indicated  by  the  type  B 
users,  centered  around  self  satisfaction  at  being  able  to 
correctly  perform  the  requested  operations.  Many  remarked 
upon  termination  of  the  evaluation  session  that  once  they 
got  started  it  was  easy.  For  the  type  B  users,  the 
perception  of  a  computer  as  a  complex,  hands  off  machine,  to 
be  used  only  by  trained  professionals  appeared  dissolved. 

Considering  these  responses,  it  seems  reasonable  to 
assume  the  aggregation  of  the  various  interface  constructs 
employed,  produced  an  environment  conducive  for  user,  task 
accomplishment  and  successfully  established  a  master  - 
servant  relationship  between  man  and  machine  respectively. 

D.  EVALUATION  SUMMARY 

Due  to  individual  differences,  it  is  extremely  diffi¬ 
cult,  if  not  impossible,  to  derive  clear-cut  classifications 
which  characterize  all  users,  in  all  circumstances,  at  all 
times.  Consequently,  the  categories  of  type  A  and  B  users 
should  be  viewed  as  opposite  ends  of  a  continuum.  The  char  - 
acteristics  and  attributes  of  these  extremes  are  presented 


TABLE  6.  TYPE  A  AND  B  USER  CHARACTERISTICS 


TYPE  A  USER  CHARACTERISTICS 

TYPE  B  USER  CHARACTERISTICS 

Highly  task  oriented.  Disregards 
items  not  germane  to  task  accomp¬ 
lishment. 

Interested  and  exited  by  every¬ 
thing.  Experiments  with  various 
items  enroute  to  task  accomplis- 
ment. 

Each  action  carefully  thought  out 
prior  to  execution. 

Actions  more  intuitive  and  im¬ 
pulsive. 

Uncomfortable  with  the  new  and 
unfamiliar. 

Considers  new  and  unfamiliar  as 
a  challenge  to  be  mastered. 

Takes  error  messages  personally. 
Great  care  taken  to  avoid  repeat 
of  same  error. 

Error  messages  viewed  as  part  of 
learning  process. 

Views  each  new  task  as  separate 
and  unrelated  to  previously  com¬ 
pleted  tasks. 

Similarities  between  new  and  pre¬ 
viously  completed  tasks  quickly 
identified  and  used. 

The  resulte  of  the  evaluation  process  are  viewed  as 
overall  supportive  of  the  assumptions  and  theories  under¬ 
lying  the  interface  design.  User  perceptions  regarding  the 
program  seem  consistent  with  design  intent.  However, 
several  revelations  became  apparent  during  the  evaluation 
process  which  preclude  concluding  that  the  application 
program,  in  its  present  form,  can  effectively  support  novice 
user  interaction  without  some  prior  training. 

In  retrospect,  it  appears  the  primary,  interface  devel¬ 
opment  assumption  of  user  familiarity  with  the  requirements 
of  the  job,  is  not  the  only  operative  assumption.  The  fact 


that  the  design  goal  was  the  development  of  a  system 


requiring  no  user  manual  or  prior  training,  inherently 


assumes  a  user  willing  to  accept  the  Montessori  approach  of 


experience  and  learning  through  experimentation  and 


discovery.  Task  oriented  type  A  users  and/or  prospective 


users  with  neither  the  time  nor  inclination  for  experimenta¬ 


tion  will  essentially  render  the  system  useless. 


A  seemingly  minor  but  serious  interface  design  error 


lays  in  the  assumption  that  a  user's  knowledge  of  a  standard 


typewriter  keyboard  could  be  transferred  to  the  computer's 


keyboard.  It  became  immediately  obvious  at  the  start  of  the 


evaluation  sessions  that  the  interface  contained  no 


provision  to  inform  the  user  of  the  requirement  to  press  the 


return  or  enter  key  upon  completion  of  data  entry.  Although 


this  omission  may  be  easily  rectified  with  additional  screen 


documentation,  it  serves  to  illustrate  the  observation  by 


Caines  and  Shaw  in  that: 


...it  highlights  a  major  pitfall  into  which  we  all  occa¬ 
sionally  fall  since  the  phenomenon  of  assuming  that  what 
we  personally  know  and  have  experienced  is  obvious  is  a 
common  one  for  all  human  behaviour.  [Ref.  5:p.  301 


Thus  it  seems  imperative  that  when  designing  systems  for 


little  to  no  formal  user  training,  extreme  and  methodical 


care  must  be  exercised  when  assessing  the  validity  of 


assumptions  regarding  user  capabilities. 


Although  the  formal  evaluation  sessions  were  completed, 


visits  to  AER  to  perform  minor  maintenance  on  the  production 


version  of  the  program  provided  some  additional,  unexpected 


observations.  The  users  classified  as  type  B  continued  to 


show  great  interest,  in  the  application  program. 


They  wer  e 


observed  probing  the  various  system  capabilities  and 
literally,  generating  pretenses  to  interact  with  the 
program.  Requests  were  made  of  the  accountant,  who  was  to 
be  the  primary  user,  for  meaningful  data  to  input.  The 
system  was  in  constant  use.  This  sudden  activity  was  viewed 
as  significant,  considering  the  computer  had  been  present  in 
the  organization  for  over  a  year  as  well  as  several 
standard,  general  application  software  packages.  Further 
investigation  revealed  that  none  of  the  type  A  users  have 
used  or  shown  any  Interest  in  the  computer  since  the 
evaluation  sessions. 

The  results  of  the  evaluation  sessions  coupled  with  the 
post -evaluation  period  observations,  seem  to  support  the 
overall  success  of  the  research  project  and  the  underlying 
methodology  and  assumptions  presented  in  Chapter  3. 


V. 


CONCLUSION;  APPLICABILITY  QF  FINDINGS 


The  overall  success  of  the  research  interface  is  attrib¬ 
uted,  primarily,  to  the  successful  incorporation  of  theories 
and  ideas  relevant  to  human  behavior  obtained  from  sources 
external  to  the  traditional  realm  of  computer  science.  The 
development  and  use  of  the  interface  requirements  specifica¬ 
tion  then  aided  in  the  consistency  of  application  of  the 
theories  and  ideas.  Additionally,  by  placing  the  interface 
requirements  specif ications  on  equal  footing  with  the 
requirements  specif ications,  a  system  of  potentially  complex 
interfaces  was  reduced  to  one  which  invites  and  encourages 
the  novice  user. 

It  is  realized  each  application  program  has  its  own, 
unique  interface  requirements,  and  the  applicability  of  this 
particular  interface  requirements  specification  to  other  ap¬ 
plication  programs  may  be  questionable.  However,  the  con¬ 
cept  of  an  interface  requirements  specifications  during  the 
design  and  development  process  seems  a  viable  process  to 
produce  a  system  that  not  only  satisfies  the  user's  func¬ 
tional  requirements,  but  meets  the  unstated,  psychological 
and  ergonomic  needs  of  its  users. 

Since  computers  have  moved  from  the  laboratory  into  the 
mainstream  of  human  existence,  it  not  only  seems  logical  but 
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necessary  for  design  and  development  personnel  to  augment 
their  computer  related  knowledge  with  more  in-depth  know- 


APPENDIX  A 


INTERFACE  EVALUATION  FORMS 


The  purpose  of  this  experiment  is  to  evaluate  a  new 
computer  program.  You  will  he  asked  to  perform  a  series  of 
operations.  Your  ability  to  perform  the  various  operations 
will  be  observed  and  noted. 


»•»*  IMPORTANT  **** 

Please  understand,  your  ability  or  inability  to  per¬ 
form  the  requested  operations  IS  NOT  a  reflection  on  j 
reflection  on  you,  but  an  indication  of  the  effec¬ 
tiveness  or  ineffectiveness  of  the  program. 

Remember,  it  is  the  program  which  is  being  evaluated,  * 
NOT  you.  I 


Please  try  and  complete  each  operation  without  asking 
for  assistance.  However,  should  you  find  it  impossible  to 
proceed  without  an  answer  to  your  question,  do  not  hesitate 
to  ask.  Feel  free  to  experiment  or  when  in  doubt,  try  some¬ 
thing  you  think  appropriate.  Feel  free  to  voice  any  com¬ 
ments,  positive  or  negative,  during  the  session.  This  is 
NOT  a  timed  experiment.  You  may  proceed  at  your  pace.  Take 
all  the  time  you  need  to  comprehend  what  is  presented  on  the 
computer's  screen.  Finally,  NOTHING  you  may  do,  short  of 
physical  violence,  will  break,  blow-up,  or  otherwise  damage 
either  the  computer  or  the  program. 


BACKGROUND 


This  program  was  developed  for  the  Army  Emergency 
Relief  <  AER  >  organization's  accountant.  For  the  purpose  of 
this  experiment,  imagine  you  are  that  accountant. 


The  overall  function  of  AER  is  to  provide  no-interest 


loans  to  military  personnel,  primarily  army,  who  have  a 
bonafide  need  for  financial  assistance.  As  the  accountant, 
you  are  not  directly  involved  in  the  process  of  loan  appli¬ 
cation  or  approval.  Your  duties  commence  upon  approval  of 
the  loan. 
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Once  the  loan  is  approved,  you  establish  an  Army 
Emergency  Relief  Individual  Loan  Ledger  (DA  Form  1108).  The 
DA  Form  1108  contains  information  about  the  individual  and 
is  used  to  record  loan  repayments  and  the  outstanding  loan 
balance.  In  addition  to  keeping  the  DA  Form  1108' s  up  to 
date,  you  are  responsible  for  accurately  keeping  track  of 
all  funds  associated  with  your  particular  AER  organization. 
You  keep  track  of  these  funds  by  means  of  the  AER  General 
Ledger.  The  General  Ledger  is  composed  of  various  accounts, 
each  with  its  own  account  code. 

Another  of  your  functions  as  the  accountant  is  to 
provide  information,  upon  request,  about  individual  loan 
accounts,  loan  accounts  in  general  and  the  General  Ledger  to 
other  AER  personnel  as  required  for  the  performance  of  their 
duties. 

Please  let  me  know  when  you  are  ready  to  begin  the 
computer  session.  If  you  have  any  questions  about  anything 
please  ask. 


COMPUTER  PROGRAM  OPERATIONS 


1.  SGT  Harris  has  just  given  you  an  approved  loan  package 
for  you  to  establish  a  loan  account.  The  package's 

content  are  as  follows: 


Personal  Information: 


Duty  Station: 


Terry,  A.  Johnson 


E-4,  Active  Duty 
No  previous  AER  loans. 
145  S.  Treelawn  Ave 
Rusty  Spur,  Idaho  75634 
A  Company,  7th  Infantry, 
Ft  Ord,  CA 


Loan  Information:  Loan  Amount:  $340.00 

Allotment  Amount:  $  66.00 
Reason  for  Loan:  Initial  Rent 

and  Deposit 

Allotment  to  Start:  March  1987 
Allotment  to  Stop:  July  1987 


Seeing  that  all  is  in  order,  you  sign  check  number 
634152  and  give  it  to  SGT  Harris  for  delivery  to 
Johnson. 


Please  establish  the  loan  account. 

2.  SGT  Jones  is  in  the  process  of  taking  a  loan  applica¬ 

tion  and  asks  you  to  verify  that  William  O.  Tell,  SSN : 
ijHmMBHHIfl'  has  only  had  one  previous  AER  loan. 

What  is  your  response? 

3.  The  AER  officer  is  on  the  intercom  in  a  panic,  as  Col 
Evans  is  on  the  outside  line,  wanting  to  know  how  many 
personnel  assigned  to  Ft  Ord  received  loans  last  month. 

What  is  your  response? 

4.  Going  through  the  mail,  you  come  across  a  check  for 

$54.23  from  the  Chapter  13  Bankruptcy  Court  Trustee  for 

payment  on  the  loan  account  of  Ohso  Broke. 


Please  apply  the  repayment. 


Alfred  Mar  tin,  has  just  come  in  as  part  of 

his  discharge  check-out  process  and  wants  to  pay  off 
the  remainder  of  his  loan.  He  hands  you  $40. 00,  says 
thanks  and  keep  the  change.  If  there  is  any  money  left 
over  after  applying  the  repayment  to  the  outstanding 
loan  balance  then  you  must  apply  the  excess  money  to 
either  General  Ledger  Account  2001  (Contributions)  if 
the  excess  money  is  $5. 00  or  less,  or  to  Account  2004 
(Over  Payments). 

Please  process  this  transaction. 

Another  letter  contains  a  check  for  $100.00  with  a  note 
from  an  individual  who  was  helped  by  AER  several  years 
ago  and  now,  out  of  financial  difficulty,  wants  to  con¬ 
tribute  this  $100. 00  so  others  may  continue  to  receive 
the  services  of  AER. 

Please  post  this  contribution  to  the  General  Ledger. 

Beverly  Anderson  just  stopped  in  to  inform  you  that  she 
just  got  married  and  would  like  her  account  to  reflect 
her  married  name  of  Pruitte. 

Please  make  the  change. 

You  have  just  been  informed  that  Daniel  Washington, 
H9NBS9BIB  was  involved  in  a  fatal  automobile  acci¬ 
dent  over  the  weekend.  Under  these  circumstances,  AER 
regulations  require  you  to  declare  all  outstanding  loan 
balances  of  the  deceased  uncollectible. 

Please  update  Washington's  account. 

Looking  over  the  last  computer  print  out  of  the  General 
Ledger,  you  notice  that  there  is  a  mistake  in  the 
totals.  You  have  traced  this  mistake  to  account  code 
2006  for  FEB  87.  Instead  of  entering  -23. 67  you 

entered  23.67. 

Please  correct  this  error. 

How  many  loans  were  given  out  in  DEC  86  and  what  was 
their  total  amount? 


appendix  b 


APPLICATION  PROGRAM  SOURCE  CODE 


The  following,  undocumented,  application  program  source 
code  is  written  in  Borland  International,  Inc. ,  Turbo 
Pascal’",  version  3.0. 

Since  the  application  program  was  not  the  object  of 
research,  but  merely  a  necessary,  temporary  tool  for  the 
researcher,  no  documentation  was  deemed  necessary. 


The  reader  is  cautioned  that  computer  programs  developed 
in  this  research  may  not  have  been  exercised  for  all  cases 
of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  ensure  that  the  programs  are  free  of 
computational  and  logic  errors,  they  cannot  be  considered 
validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 


r»  r*/»  v 


>  >  >*'11*1-1- 


File  Name:  AER. PAS 


{$1  GLOBAL. AER) 

(SI  REGISTER. CPU) 

{SI  CONVERT. PAS) 

(SI  FILEOPS. PAS) 

{SI  SCREENIO. PAS) 

{SI  LEDGER. PASl 
{$1  HARDCOPY. PAS) 

{SI  AERPROCS. PAS) 

{SI  OVERLAYS. OVR) 

begin  (  Main  Program  ) 

PortWCS03Dfi]  :=  $09 ;  (  Set  video  blink  mode  off  ) 

ClrScr;  Esc  :=  False; 

KBSB  : =  KBSB  or  $20;  {  Activate  Num_Lock  ) 

Load_Display_Screens_into_Memory ; 

UpDate_Loans ;  if  ESC  then  Exit; 

ESC  :=  True; 

Viev_Change_or_Delete;  <  Load  overlay  procedure  ) 

ESC  :=  False; 
repeat 

Fill_Field<  3, 2, CSDate) ; 

for  I  :=  0  to  6  do  Fill_Field(3, 1«-3,  String_Int(Loan_Totalst  I),  4 )  ) 
Fill_Field( 3, 10, String_Int< Index_Stats. Next_Name_Ptr, 4 ) ) ; 
Fill_Field<3, 11, String_Int(Loan_Stats.  Prev_Record,  4 ) ) ; 

KBSB  KBSB  or  $20;  (Activate  Nua_Lock  ) 
repeat 

PF_Key  :=  True; 

Screen_Input(3, 13, 13) ; 
if  ESC  then  <  terminate  program  ) 
begin 

KBSB  :=  KBSB  and  SDF;  {  set  Num_Lock  OFF  ) 

Close_Files;  Exit 
end; 

if  Mot<PF_Key)  then 
begin 

Selection  :=  Integer_Value(Field_Contents< 3, 13) ) ; 
if  Not (Selection  in  (1..101)  then  Buzzer 

end 

else 

begin 

Display_Windov< 3, Selection  *  14); 

I  : =  Key_Depressed ; 

Display _Screen  : =  Prepared_Screen; 
if  I  <>  13  then  Selection  : =  0; 

ESC  :=  False 

end 

until  Selection  in  (1..10); 


File  Name:  A£R. PAS  (cont) 


if  Selection  =  1  then  Loan_£ntry ( 1 ) 
else  if  Selection  =  2  then  Loan_Entry(2> 
else  if  Selection  =  3  then 
begin 

repeat 

Screen_Input( 3, 14,  14) ; 

I  :=  Integer_Value<Field_Contents<3, 14) ) ; 
if  Hot  <<I  in  C1..33)  or  <ESO)  then  Buzzer 
until  (I  in  (1..31)  or  (ESC); 
if  Mot  ESC  then  Record_Payaents( I ) 

end 

else  if  Selection  =  4  then  Vie*_Change_or_Deiete 

else  if  Selection  =  5  then  Loan_Entry(4) 

else  if  selection  =  6  then  Oisplay_General_Stats 

else  if  Selection  =  7  then  Display _Financials( 1 ) 

else  if  Selection  =  B  then  Loan_Entry (3) 

else  if  Selection  =  9  then  Display _Financials( 2) 

else  if  (Selection  =  10)  and  <Printer_QK  =  0)  then 
begin 

repeat 

Screen_Input( 3, 12, 12) ; 

I  :=  Integer_Value(Field_Contents(3, 12) ) ; 
if  Not  ((I  in  Cl. . 101)  or  (ESC))  then  buzzer 
until  (I  in  Cl.. 101)  or  (ESC); 
if  Not  ESC  then  Seek_Records( I ) 
end; 

Prepare_Screen ( 3) ; 

Display ^Screen  :=  Prepared_Screen ; 

Correcting  :=  False; 

ESC  s  =  False 
until  Selection  =  13 
end.  (  Main  Prograa  ) 


File  Name:  GLOBAL. AER 


const 

Hi_Lite  *  $40;  (  Input  field  color  =  black  on  red  ) 

Display .Memory  =  9B800;  <  SBOOO  for  monochrome  Monitors  ) 

Index.AER  =  'Index. AER'; 

Accounts. AER  =  'Accounts. AER ' ; 

Loans.AER  -  'Loans. AER'; 

GrdStats.AER  =  'GrdStats. AER' ; 

LEDGER.FRH  =  'Ledger. FRH' ; 

Valid.Honth  =  '  JAN  FEB  HAR  APR  HAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC' 
type 

Identification  Record  =  record 


Hash.Case.Nr.Ptr  :  integer; 

(  2 

bytes) 

Hash.Naae.Ptr  :  integer; 

(  2 

bytes) 

Next.Case_Nr.Ptr  :  integer; 

(  2 

bytes) 

Previous.Case.Nr.Ptr *.  integer; 

{  2 

bytes) 

Next.Name.Ptr :  integer; 

(  2 

bytes) 

Previous. Name.Ptr :  integer; 

(  2 

bytes) 

SSN  :  real ; 

(  6 

bytes) 

Name  :  string(25); 

(26 

bytes) 

Grade. and. Status  *.  byte; 

(  1 

byte  ) 

Accounts.Ptr  :  integer; 

(  2 

bytes) 

end;  <  Identif ication.Record  ) 

(47 

bytes) 

Accounting. Record  *  record 

Acct .Status  *.  byte; 

(  1 

byte  ) 

Loan.Nr  s  byte; 

(  1 

byte  ) 

Repay .Hethod  :  byte; 

(  1 

byte  ) 

Allot.Info  :  real; 

(  6 

bytes) 

Loan.Info  :  real; 

(  6 

bytes) 

Balance.Info  :  real; 

(  6 

bytes) 

Next. Record  :  integer ; 

(  2 

bytes) 

Prev.Record  :  integer; 

(  2 

bytes ) 

end;  (  Accounting. Record  ) 

(25 

bytes ) 

Total.Account  =  record 

Rec.Loc  :  integer; 

(  2 

bytes) 

Loan.Data  :  Accounting.Record; 

(25 

bytes) 

end;  (Total.Account) 

Entire.Account  *  array(1..15)  of  Total. Account; 


Qty.Amount  *  record 
Qty  :  integer; 
Amt  :  real ; 
end;  (  Qty  Amount  > 


(  2  bytes) 
(  6  bytes) 
(  B  bytes) 


File  Name:  GLOBAL. AER  (cont) 


AER_Accounts  =  record 

Entry_Year  :  byte;  (Last  digit  of  applicable  year) 
AXOOO  :  array(1..63  of  real;  (Account  Totals) 

A2000  :  array tl.. 10)  of  Real;  (Receipts) 

A3000  :  array(9. .16)  of  Real;  (Disburseaents) 

A6000  :  array ( 17. . 21 ]  of  real;  (Loan  Balance  Suaaary) 

A2QTY  :  array (1.. 5]  of  Integer;  (Quantity  Totals) 
A3QTY  :  array ( 10. . 133  of  integer;  (Quantity  Totals) 
A6QTY  -  array (17. . 193  of  integer;  (Quantity  Totals) 
end;  (AER_ Accounts  ) 


(01  bytes) 
(36  bytes) 
(60  bytes) 
(48  bytes) 
(30  bytes) 
(10  bytes) 
(06  bytes) 
(06  bytes) 
(199  bytes) 


(001  byte  ) 
(144  bytes) 
(086  bytes) 
(024  bytes) 
<256  bytes) 

scrnllne  =  array (1.. 1603  of  byte; 

Scrnarray  =  array(1..253  of  scrnllne; 

Screen_Data  =  record 

Screen_Iaage  :  Scrnarray; 

Field_Posits  *.  ScrnLine; 

Windoe_Info  ;  ScrnLine 
end;  (record  Screen_0ata) 


General_Stats  =  record 
Year  :  byte; 

Grade_Stats  :  array (1. . 2, 1. . 93  of  Qty _A«ount; 
Loan_Cats  :  array(1..113  of  Qty_Aaount; 
Duty_Station  :  array (1.. 3 3  of  Qty_Aaount; 
end;  (  General_Stats  ) 


String3  *  string(33; 
String5  =  string) 53; 
String9  =  string[93; 
Stringll  =  strlng(113; 
String25  =  strlng(253; 
String40  =  string(403; 
String80  =  string(603; 


var 

Index, Index.Stats  :  Identlf ication_Record; 

Loan, Loan_Stats  :  Accounting_Record; 

Index_File  :  file  of  Identif ication_Record ; 

Loan_File  :  file  of  Accounting_Record; 

Stats_File  :  file  of  General_Stats; 

Accounts_File  :  file  of  AER_Accounts; 

Selection,  CurHon,  CurDate,  Code,  I,  J  :  integer; 

Screen  :  array(1..63  of  Screen_Data  absolute  96000:0000; 
Display _Screen  :  scrnarray  absolute  Display  _Heaory  *.90000; 
Prepared, Screen  :  ScrnArray; 

Rec_Pos  :  array(1..153  of  integer; 

Stats.Code  .  array  CO.. 63  of  byte; 


File  Name:  GLOBAL. AER  (cont) 


Loan_Totals  :  arrayCO. .10]  of  integer; 

PF_Key,  Print_0n,  Correcting,  ESC  :  boolean; 

KBSB  :  byte  absolute  90000:30417; 

Grade  :  String3; 

Scan_Code  :  byte; 

Status  :  char; 

Date,  CSDate  :  String9; 

Windoe_Contents  :  array t 1 . . 6, 1. . 1301  of  StringBO  absolute  95000:0000; 


File  Nane:  REGISTER. CPU 
type 

CPU_Registers  =  record 

AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags  :  integer 
end; 


var 

Regs  :  CPU_Registers; 

Function  Key_Depressed  :  byte; 
begin 

if  ESC  then  Exit; 

Regs.  AX  *.=  0;intr<91G,  Regs) ;  Key  _D»pr  eased  :*  lot  Regs.  AX); 
if  lo(Regs.AX)  -  27  then  ESC  :-  True  else  ESC  :  =  False; 
if  hi < Regs. AX )  =  78  then  Key_Depressed  :s  13 
end;  <  Function  Key_Oepressed  ) 


File  Naae:  CONVERT. PAS 


Function  Integer_Value<Str_Val  :  String40>  :  integer; 
var 

Te*p_Int_Val  :  integer; 
begin 

val ( Str_Val,  Te»p_Int_Val, Code > ; 
if  Code  *  0  then  Integer_Value  s=  Teap_Int_Val 
else  Integer_Value  :=  0 
end;  (  Function  Integer _ Value  > 

Function  SSN_Str <Real_SSN  :  real)  :  Stringll; 

var 

Tewp_Str  :  Stringll; 

SI  :  integer; 

begin 

Str<Real_SSM:9:0, Teap_Str ) ; 
for  SI  :=  1  to  9  do 

if  Te»p_Strf SI ]  =  *  '  then  Teap.StrCSll  s*  'O'; 
insert < ' - ' , Teap_Str,  4 ) ;  insert < Te«p_Str,  7) ; 
SSN_Str  :=  Te»p_Str 
end;  {  Function  SSN_Str  ) 

Procedure  Split_Date_and_Money (Oate.Honey  s  real; 

var  Date_Out  :  String9; 
var  Money _A*t  :  real); 


var 

Day,  Mon,  Year,  Int_Date  :  integer; 

Day_Str,  Year_Str  :  string  12]; 

begin 

Int_Date  :=  trunc<Date_Money ) ; 

Money _Aat  :=  frac<Date_Money )  *  10000; 

Year  :=  Int_Date  div  512;Str<80  ♦  Year :2, Year_Str ) ; 

Mon  :=  <Int_Date  -  512  *  Year)  div  32; 

Day  :=  Int_Date  -  Year  *  512  -  Mon  *  32; 
if  Day  =  0  then  Day_Str  : =  '  ' 

elBe  Str<Day:2, Day_Str) ; 

Date_0ut  :=  Day_Str*'  '  »copy  <  Valid_Month,  4*Mon-2,  3)  «■ '  '  ♦Year_Str 
end;  (  Procedure  Split_Date_and_Money  ) 
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File  Name:  CONVERT. PAS  <cont> 


Function  Herge_Date_and_Honey <Str_Date:String9;  Honey_A«t:real )  :  real 
var 

Hon,  Day,  Year  :  integer; 
begin 

while  length<Str_Date)  <  9  do  insert ( 'O', Str_Date,  1 ) ; 

Day  :=  Integer_Value(copy <Str_Date,  1,  2) ) ; 

Hon  :=  ( <pos<copy <Str_Date, 4, 3), Valid_Honth)  ♦  2)  div  4)  *  32; 
year  :=  < Integer_Value(copy <Str_Date, 8, 2) )  -  80)  *  512; 
Herge_Date_and_Honey  :=  Year  ♦  Hon  ♦  Day  ♦  Honey_A»t/10000. 0 
end;  (  Function  Herge_Date_and_Honey  } 

Procedure  Extract_Date_Data< In_Date:String9; 

var  Hon_Nr, Int_Date: integer ) ; 


var 

Hon  :  string [33; 
begin 

while  length < In_Date)  <  S  do  insert < '  ', In_Date, 1 ) ; 

Hon  :=  copy < In_Date, length < In_Date) -5, length ( In_Date) -3) ; 

Hon_Nr  :=  <pos(Hon, Valid_Honth)  ♦  2)  div  4; 

Int_Date  :=  round <Herge_Date_and_Honey < In_Date,  0.  0) ) 
end;  {  Procedure  Extract_Date_Data  ) 

Function  Encode_Grade_and_Status<Grd  :  String3;  Stat  :  char)  :  byte; 
var 

TempCode  :  byte; 
begin 

Temp_Code  :=  ord<Grd(33 )-48; 

if  Grd(13  =  'E'  then  Te*p_Code  :=  $20  or  Te»p_Code 
else  if  Grd(13  =  'W'  then  Te«p_Code  :=  $40  or  Te*p_Code 
else  Te*p_Code  :=  $00  or  Teap_Code; 
if  Stat  =  'R'  then  Teap_Code  :*  $10  or  Te»p_Code; 
Encode_Grade_and_Status  :=  Te«p_Code 
end;  (  Function  Encode_Grade_and_Status  3 

Procedure  Decode_Grade_and_Status<Code_Val  :  byte;  var  Grd  :  String3; 

var  Stat  :  char); 

begin 

if  Code_Val  and  $20  *  $20  then  Grd  :=  'E-' 

else  if  Code_Val  and  $80  =  $60  then  Grd  :=  '0-'  else  Grd  :=  'W-'; 
if  Code_Val  and  $10  *  $10  then  Stat  :=  'R' 
else  Stat  :=  'A'; 

if  <Code_Val  and  $0F>  =  0  then  Grd  :=  'UNK' 
else  Grd  :=  Grd  ♦  chr < <Code_Val  and  $0F)  »  40) 
end;  {  Procedure  Decode_Grade_and_Status  ) 


File  Name:  CONVERT. PAS  <cont> 

Procedure  Ha«h(Rew_Value  :  String25;  var  Hash_Value  :  integer; 
var  SSN_Hash  :  boolean); 


type 

Ordering_Set  =  set  of  char; 


var 

Sub_Total,  HI,  H2,  H3  :  integer; 

Soc_Sec_Nr  ••  real ; 

begin 

while  pos< '  ',Raw_Value)  <>  0  do 

delete < Raw_ Value, pos< '  ', Raw_ Value) , 1 ) ; 
while  pos< Raw_Value)  <>  0  do 

delete <Raw_Value, pos< ' - ' , Raw_ Value) , 1 ) ; 

Val ( Raw_Value,  Soc_Sec_Nr , Code ) ; 
if  Code  =  0  then 
begin 

Hash_Value  :=  <round<frac(Soc_Sec_Nr/10000)*10000)  nod  5000)»1 
SSN_Hash  :=  True;  Exit 

end 

else 

begin 

Sub_Total  :=  0; 

if  length <Raw_ Value)  >  7  then  H2  i=  7 
else  H2  :*  length < RawValue ) ; 

H3  :=  102; 

for  HI  :=  1  to  H2  do 
begin 

Sub_Total:=Sub_Total«-H3*(0rd(upcase<Raw_ValuetHl  ] ) )  -65) ; 
H3  :=  H3  dlv  2~ 
end; 

Hash_Value  :=  abs<Sub_Total ) ;  SSN_Hash  : =  False 

end 

end;  (  Procedure  Hash  > 

Function  Real_Value<Str_Val  *.  String40>  t  real; 
var 

Tenp_Real_Val  :  real; 
begin 

if  <Str_Valt4]  =  and  <Str_Vall71  =  '-')  then 

begin 

delete(Str_Val, 4, 1 ) ;  delete<Str_Val, 6, 1 ) 
end; 

val<Str_Val,  Tenp_Real_Val, Code) ; 

Real_Value  : =  Tenp_Real_Val 
end;  <  Function  Real_Value  > 
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File  Name:  CONVERT, PAS  (cont) 


Function  String_Real <Real_In  :  real ;String_Size  :  integer ) iStringll ; 


var 

Temp_Result  :  Stringll; 
begin 

Str  <  Real_In : 11 :2,  Te»p_Result ) ; 
if  length <Te»p_Result)  >  String_Size  then 
repeat 

delete<  Teap_Result, 1,1) 
until  length <Teap_Result>  *  String_Size; 

String_Real  :=  Teap_Result 
end;  {  Function  String_Real  ) 

Function  String_Int< Integer_In,  String_Size  :  integer)  ••  String5; 
var 

Te«p_Result  :  StringS; 
begin 

Str  < Integer_In:5, Teap_Result) ; 
if  length < Te»p_Result )  >  String_Size  then 
repeat 

delete <Teap_Result,  1,1) 
until  length <Teap_Result)  =  String_Size; 

String_Int  :*  Te»p_Resuit 
end;  (  Function  String_Int  ) 

Function  Date_Difference<Datel, Date2  :  StringS)  :  integer; 


var 


Date_Codel,  Date_Code2,  Honl,  Mon 2,  Year_Correct  t  integer; 


begin 

Extract_Oate_Data(Datel, Monl, Date_Codel ) ; 

Extract_Date_Data<Date2, Hon2, Date_Code2) ; 

Year_Correct  s=  abs< (Oate_Codel  div  512)  -  <Date_Code2  div  512))*128; 
Date_Dif ference  :=  (Date_Codel  -  Date_Code2  -  Year_Correct )  div  32 
end;  (  Function  Date_Dif ference  ) 


File  Name :  CONVERT. PAS  (cont) 


Function  Nev_Status(Act  :  Char;  Loan_Rec  :  Accounting_Record )  :  byte; 
var 

ADiff,  PDiff,  Inc  :  integer;  ADate,  PDate  :  string(S3; 

T_Reall,  T_Real2  :  real; 


begin 

if  Act  =  'D'  then  Inc  :=  -1  else  Inc  :=  1; 

Nee_Status  :  =  Loan_Rec. Acct_Status; 
with  Loan_Rec  do 

if  Acct_Status  in  (1,3,5,61  then 

Loan_Totals(Acct_Status3  :=  Loan_TotalB(Acct_StatuBl  *  Inc 
else 

begin 

Split_Date_and_floney  (  Allot_Inf o,  AOate,  T_Reall ) ; 
Split_Date_and_Honey  (  Balance_Info, PDate, T_Real2) ; 

ADiff  :  =  Date_Difference< CSDate,  ADate) ; 

PDiff  :=  Date_Difference (CSDate, PDate) ; 

if  ADiff  >  4  then  ADiff  :=  4;  if  PDiff  >  4  then  PDiff  :=  4; 
if  (Acct_Status  =  4)  and  (PDiff  >  0)  then  Nev_Status  : =  9FF 
else  if  Acct_Status  =  4  then 

Loan_Totals(4 ]  *.=  Loan_Totals(4]  *  Inc 
else  if  (Acct_Status5!0)  and  (Adiff  >  0)  and  (PDiff  >  0)  then 
begin 

Nev_Statu8  :=  2; 

Loan_Totala(2]  : *  Loan_Totalst21  ♦  Inc; 

Loan_Totala( 73  Loan_TotalB(73  *  Inc 

end 

else  if  Acct_Status  *  0  then 

Loan_TotalB(03  s=  Loan_TotalB(01  *  Inc 
else 

begin 

if  (Pdiff  <  1)  or  (ADiff  <  1)  then 
begin 

Nen_Status  :=  0; 

Loan_Totals(03  :=  Loan_Totals(03  ♦  Inc 

end 
el  Be 

begin 

Loan_Totals( 23  :=  Loan_Totals[23  «•  Inc; 
if  PDiff  >  Adiff  then 

Loan_Totals(6*Adiff 3  : =  Loan_Totala( 6*Adif f J 

♦  Inc 

else 

Loan_TotalB(6-Pdiff 3  :=  Loan_Totale(6*Pdif f 3 

*  Inc 


end; 


end 

end 


end 

(  Function  Nev  Status  > 


File  Name:  FILEOPS. PAS 


Function  Strings_Equal < Input_Str ing, Record_String  :  String25)  :  boolean; 
var 

Si,  StrLen  :  integer; 

Strl,  Str2  s  string{253; 

begin 

Strl  :=  ";Str2  :=  "; 

if  length ( Input_String )  >  length(Record_String)  then 
StrLen  :=  length (Record_Str ing ) 
else  StrLen  :=  length ( Input_String ) ; 
for  SI  *.=  1  to  StrLen  do 
begin 

if  Input_StringfSl J  <>  chr<323  then 

Strl  :=  Strl  ♦  upcase< Input_StringCS13 ) ; 
if  Record_String(Sl 3  <>  chr<32)  then 

Str2  s=  Str2  ♦  upcase<Record_StringtS13 ) 

end ; 

if  Strl  =  Str2  then  Strings_Equal  *.=  True 
else  Strings_£qual  :  =  False 
end;  (  Function  Strings_Equal  ) 

Procedure  Get_Index_Record(Hash_0bject:String25;  Var  Rec_Ptr : integer ) ; 
var 

Hash_Val  :  integer; 

Case_is_the_Key, Record_Located, Mo_Record  :  boolean; 
begin 

Hash  <  Hash_ObJect,  Hash  Val, Case_is_the_Key ) ; 
seek  < Index_File, Hash_Val ) ; read ( Index_File, Index ) ; 
if  Case_is_the_Key  then 

seek< Index_File, Index. Hash_Case_Nr_Ptr ) 
else  if  Index. Hash_Naae_Ptr  *  0  then 
begin 

Rec_Ptr  :=  0;  Exit 

end 

else  seek( Index_File, Index. Hash_Ma»e_Ptr ) ; 

Mo_Record  :=  false;  Record_Located  ; =  False; 
repeat 

read< Index_File, Index ) ; 
if  Case_is_the_Key  then 
begin 

if  SSH_Str < Index. SSH )  =  Hash_0bject  then 
Record _ Located  :=  True 
else  if  Index. Hext_Case_Hr_Ptr  =  0  then 
Ho_Record  :*  True 

else  seek< Index_File,  Index. Next_Case_Hr_Ptr ) 

end 
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File  Name:  FILEOPS. PAS  (cont) 


else 

begin 

if  Strings_£qual < Hash_Object, Index. Name )  then 
Record_Located  :=  True 

else  if  Index. Next_Na*e_Ptr  =  0  then  No_Record  : =  True 
else  seek < Index_File, Index. Next_Nase_Ptr ) 

end 

until  <No_Record)  or  < Record_Located ) ; 

if  Record_Located  then  Rec_Ptr  :=  FilePos< Index_File )  -  1 
else  Rec_Ptr  :=  0; 

end;  {  Procedure  Get_Index_Record  ) 

Procedure  Write_Index_Record; 
var 

Templndex  :  Identif ication_Record ; 

TempLoan  :  Accounting_Record ; 

Record_Posit,  Case_Hash_Val,  Name_Hash_Val  :  integer; 

SSN_String  :  Stringll; 

Dummy  :  boolean; 

begin 

SSN_String  : =  SSN_Str < Index. SSN ) ;  Temp_Index  :=  Index; 
Get_Index_Record(SSN_String,  Record_Posit ) ;  (check  if  record  exists) 
if  Record_Posit  <>  0  then 
begin 

Index. Grade_and_Status  :*  Tesp_Index. Grade_and_Status; 
seek< Index_File, Record_Posit > ;  write ( Index_File, Index ) ; 
seek  <  Loan_File, Index. Accounts_Ptr ) ; 
read(Loan_File, Tesp_Losn) ; 
if  Temp_Loan. Next_Record  <>  0  then 
repeat 

seek<Loan_File, Temp_Loan. Next_Record> ; 
read ( Loan_File, Temp_Loan > 
until  Temp_Loan. Next_Record  *  0; 

Loan. Prew_Record  :=  FilePos(Loan_File)  -  1; 

Te»p_Loan. Next_record  : *  Loan_Stats. Next_Record ; 
seek  <  Loan_File,  Loan. Prev_Record  > ; 
write*  Loan_File, Tesp_Loan ) 

end 

else  (record  does  not  exist) 

begin 

Index  :  =  Te*p_Index;  Hash ( SSN_String, Case_Hash_Val,  Dummy ) ; 
seek( Index_File, Case_Hssh_Val ) ;  read( Index_File, Templndex ) ; 
Index. Previous_Case_Nr_Ptr  :*  Case_Hash_Val ; 

Index. Next_Case_Nr_Ptr  :*  Temp_ Index. Hash_Case_Nr_Ptr ; 
Temp_Index. Hash_Case_Nr_Ptr  : *  Index_Stats. Accounts_Ptr ; 
seek ( Index_File, Case_Hash_Val ) ;  write* Index_Fiie, Temp_Index  > ; 
if  Index. Next  Case  Nr  Ptr  <>  0  then 


Fila  Na 


FILEOPS.PAS  (cont) 


bvgln 

•Hk  <  Indax.Flla,  Indax.  Haxt.Caaa.Kr.Ptr  > ; 
rndl  Indax.Flla,  Taaplndax  ) ; 

Tanp. Indax.  Pravioua.Casa.Mr.Ptr  :  * 

Indax.Stata. Accounta.Ptr 
aaak ( Indax.Flla,  Indax. Maxt.Casa.Nr _Ptr ) ; 

«rlta< Indax.Flla, Taaplndax) 


and; 

Indax. Accounta_Ptr  :«  Loan.Stata. Naxt.Racord ; 

HaaM Indax. Naaa, NaaaHaahVal, Duaay ) ; 

aaak < Indax.Flla, haaa.Haah. Val ) ;  raad< Indax.Flla, Taap_Indax > ; 
Indax. Pravlows.Maaa.Ptr  :*  Maaa.Hash.Val ; 

Indax. Max t_ Naaa.  Ptr  ;»  Taap. Indax. Hash.Maaa.Ptr; 

Taaplndax. Haah.kaaaPtr  :«  Indax_Stata. Accounta.Ptr ; 
aaakt Indax.Flla, Naaa.Maah.Val ) ;  *rita< Indax.Flla,  Taap_Indax ) ; 
If  Indax. Max tkana. Ptr  <>  0  than 
bag  In 

aaak < Indax.Flla, Indax. Naxt.Maaa.Ptr  > ; 
raad < Indax_Flla,  Taaplndax ) ; 

Taaplndax. Pravlows.Maaa.Ptr  :*  Indax_Stata.Accownta.Ptr 
aaak < IndaxFila,  Indax.  Naxt.Maaa.Ptr ) ; 


vrits< Indax  Fila,  Taap  lndax ) 
and  i 

a safc< Indax  Fila,  Indax.Stata.  Accounta.Ptr i ; 
raad ( IndaxF lla, Taaplndax ) ; 

Indax. Haah.Caaa.Hr _Ptr  :*  Toap_ Indax. Maah.Caoa.Nr  Ptr ; 

Indax. Maah_ Naaa _Ptr  :»  Taaplndax.  MashMaaaPtr ; 
aaak< IndaxFila, Indax.Stata. Accounta.Ptr t ; 

«nta<  Indax  Fila,  Indax > ; 

aaakt  Loan _Fl la, Loan.Stata. Maxttacor d l ; 

raad ( Loan. Fi la, Taap  Loan » ; 

Loan. Prav. tacord  :«  -  IndaxStata. IccowntaPtr ; 

Indax.Stata. Accounta.Ptr  :*  Taap_ Indax. Accounta.Ptr ; 
IndaxStata. Praviowa.Capa.MrPtr  :•  Indax. Stata. Account  a  Pt r ; 
Indax.Stata.  Nsxt. Matas. Ptr  •.  ■  Indax. Stata.  Naxt.Maaa.Ptr  •  l 
and; 

aaak  < Loan.Fi la, Loan .Stata. Mast. tacord > j 

raad < Loan _Fl la,  Taap  Loan i ; 

aaak (Loan.Fi la.  Loan .Stata.  Mast  tacord  > . 

Loan. Most, tacord  :•  0; 

«nta<  Loan.Fi  la.  Loan  t ; 

Loan.Stata. bast. tacord  •.  •  Taap. Loan.  Maxt  tacord; 

Loan. Stata.  Prax. tacord  •  Loan. Stata. Prav  tacord  •  l, 
aaak <  Loan.Fi la, 0 ) ;  *r ita< Loan  Fi la, Loan  Stata  > ; 
aaak  ( Indax. Ft  la,  0 » ;  inta<  Indax  Fi  la,  Indax  Stata, 

Flush' Indax.Flla* ;  Flwah'Loan  Fiia> 
and;  I  Procsdurs  Vnta  Indax  tacord  > 


File  Naae:  FILEOPS. PAS  (cont» 


Procedure  D*  1  »t *  Lo«n ( Lo»n  ll*cor d_ Pt r  s  integer; 

var  Next .Loan. Record  :  integer); 

var 

TeipLotn  :  Account lng_Record; 
begin 

■eek <  Loan.Flle,  Loan _ Record _Ptr > ; 
read( Loan.Flle,  Loan  > ; 

Loan. Acct_Statua  i«  Nev.Statue* ' D ' , Loan ) ; 

Rent _ Loan _ Record  :*  Loan. Next, Record; 
if  Loan. Next  Record  <>  0  then 
begin 

eeek( Loan.Flle,  Loan. Next .Record  > ; 
reed*  Loan.Flle,  Teap.Loan ) ; 

Teap.Loan. Prev.Record  :«  Loan. Prev. Record; 
seek  <  LoanFile, Loan. Next .Record) ; 

•  nte* Loan. File,  Teap.Loan  ) 
end ; 

if  Loan. Prey. Record  *  0  then 
begin 

aee*< Index .File, aba (Loan. Prev. Record) ) ;  read* Index  File, Index ) ; 
Index. Accounta.Ptr  : «  Loan. Neat .Record ; 

aee«< Index.FUe,  aba (Loan.  Prev.Record) ) ;  vrlte< Index.Flle, Index) 

end 

eiae 


■eek ( Loen.Fi le.  Loan. Prev.Record ) ; 
read 'Loan  File,  Teap.Loan  > ; 

Teap.Loan. Next .Record  : »  Loan. Next .Record ; 
eeefc  * Loan. File,  Loan.  Prev.Record  * ; 
vr  ite< Loan  File,  Loan  > 

end ; 

F i i ICher  <  Loan, 25, 0» ; 

^oenAcctStatua  :*  OFF ; 

Loan. Next  Record  :■  Loan. State.  Next  Record; 

Loan  State-  Prev.Record  LoanSt at a. Prev.Record  l; 
Loan  Stats.  Neat. Record  :•  Loan.Record.Ptr ; 
eeek  <  Loan  Fi  le.  Loan  _  Recor  d  Pt  r  > ; 

•  rite*  Loan.  File,  Loan  > ; 

seek < Loan. File, 0) ;  vr ite* Loan _ Fi ie, Loan. State* ; 
r i *e» i  <  Loan  Ft le • 
end.  Procedure  Delete  Loon  i 


File  Name:  FILEOPS.  PAS  (cont) 

Procedure  Delete_Account< Index_Entry_Ptr  :  integer); 
var 

Temp_ Index  :  Identif ication_Record ;  Teap_Loan  :  Accounting_Record 
Next_Ptr,  Record_Ptr,  Case_Hash_Val,  Name_Hash_Val  :  integer; 
SSN_String  :  String25;  Dummy  :  boolean; 

begin 

Str < Index. SSN :9:0, SSN_String ) ;  Hash( SSN_String, Case_Hash_Val, Dummy ) 
Hash ( Index. Name,  Nase_Hash_Val,  Dummy ) ; 

Next_Ptr  : =  Index. Accountm_Ptr ; 

repeat  Delete_Loan(Next_Ptr, Next_Ptr )  until  Next_Ptr  *  0; 

Temp_ Index  :*  Index;  Temp_ Index. Name  :»  'EMPTY'; 

Temp_ Index. Accounts_Ptr  :*  Index_Stata.  Accountm_Ptr ; 

Index_Stata. Accounta_Ptr  : «  Index_Entry_Ptr ; 

Index_Stata. Next_Name_Ptr  :*  Index_Stats. Next_Name_Ptr  -  1; 
seek* Index_File, Index_Entry_Ptr ) ;  write* Index_File, Temp_Index) ; 
seek  < Index_File, Index. Previous_Case_Nr_Ptr  > ; 
read< Index_File,  Temp_ Index ) ; 

if  Index. Previous_Case_Nr_Ptr  *  Case_Hash_Val  then 

Temp_Index. Hash_Case_Nr_Ptr  :*  Index. Next_Case_Nr_Ptr 
else  Temp_Index. Next_Case_Nr_Ptr  :«  Index. Next_Case_Nr_Ptr ; 
seek* Index_File, Index. Previous_Case_Nr_Ptr ) ; 
write* Index_File, Temp_ Index) ; 
if  Index. Next_Csse_Nr_Ptr  «>  0  then 
begin 

seek* Index_File, Index. Next_Case_Nr_Ptr ) ; 
read* Index_File,  Temp_ Index > ; 

Temp_ Index. Previous_Csse_Nr_Ptr  :a  Index. Previous_Case_Nr_Ptr 
seek* Index_File,  Index.  Mext_Case_Nr_Ptr ) ; 
write* Index_File, Temp_Index ) 
end; 

seek  < Index_File, Index. Previous_Name_Ptr  > ; 
read  * Index_File, Temp_ Index ) ; 

if  Index. Previous_Naae_Ptr  *  Name_Hash_Val  then 
Temp_ Index. Hash_Nase_Ptr  :*  Index. Next_Name_Ptr 
else  Temp_Index. Next_Name_Ptr  :*  Index. Next_Name_Ptr ; 
seek ( Index_File, Index. Previous_Name_Ptr ) ; 
write* Index_File, Temp_Index ) ; 
if  Index. Next_Name_Ptr  <>  0  then 
begin 

seek* Index_File,  Index. Next_Name_Ptr ) ; 
read* Index_File,  Temp_ Index ) ; 

Temp_ Index. Previous_Neme_Ptr  :*  Index. Previous_Name_Ptr ; 
seek* Index_File,  Index. Next_Name_Ptr ) ; 
write* Index_File,  Temp_Index ) 
end ; 

seek* Index_File,0> ;  write* Index_File, Index_Stats> ; 

Flush* Index_File> 
end;  (procedure  Delete_Account  ) 
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File  Nam*:  SCREENIO. PAS 


Procedure  Buzzer;  (  Produces  audio  error  signal  ) 

begin 

sound (600);  delay (100);  nosound 
end;  <  Procedure  Buzzer  ) 

Procedure  Display_Windov(Screen_Nr  s  integer;  Window_Hr  :  byte); 


var 

X,  Y,  Z,  Offset,  Windov_Ptr  :  integer; 

Window_Lines  :  byte; 

Displaystring  :  StringdO; 

begin 

Window_Ptr  :*  Window_Nr»4  -  3; 
with  Screen ( Screen _Mr 1  do 
begin 

Windov_Linea  :*  0; 

Z  i *  Windov_Info(Mindov_Ptr  ♦  31; 

X  :*  Window_Info( Window_Ptr 1 ;  Y  :«  Windov_Info( Vindow_Ptr  *  1); 
while  Hindow_Lines  <  Windav_Info(Windov_Ptr  *  21  do 
begin 

DisplayString  :«  Vindov_Contents(Screen_Nr, Z) ; 

Offset  :*  (Y  -  1)*160  «~2*(X  -  1); 
inline( 


•50/*51/*57/*56/*06/*9C/ 

•2E/*B6/Display_Neeory/ 

•50/ 

•07/ 

•8B/*BE/0ffaet/ 
•8D/SB6/Diapl ay String/ 
•31/*C9/ 

•36/S8A/SOC/ 

•46/ 

•FC/ 

•36/«A4/  (LI 

•E2/*FC/ 

•9D/*07/*5E/*5F/*59/*56> ; 


(PUSH  AX,CX,DI,SI,ES,  Flags) 
(CS-.HOV  AX,  (Display  _He»ory) ) 
(PUSH  AX) 

(POP  ES) 

(HOV  DI, C BP* Off set ] ) 

(LEA  SI, (BP*DisplayString ) ) 

( XOR  CX,CX) 

( SS : HOV  CL, (SI)) 

(INC  SI) 

(CLD) 

SS : HOVSB ) 

(LOOP  LI) 

(POP  Flags,  ES,  SI,DI,CX,  AX) 


Z:«Z*1;Y:«Y*1;  Mindov_Lines  :»  Window_Lines  »  1 

end 

end 

(  Procedure  Display.Windov  ) 


end; 


File  Maae:  SCREEMIQ. PAS  (cont) 


Procedure  Prepare_Screen(Screen_Nuaber  :  integer ) ; 
var 

PI,  PJ  :  integer; 
begin 

Prepared .Screen  : =  Scrt*n ( ScrttnNuabtr I . Scr»tn_ I Hg* ; 

PJ  :«  1;~ 

with  Scr»»nlScr»*n_Mutb*r 1  do 

repeat 

for  PI  :*  0  to  (*7F  and  Field.Poaitaf PJ*2) >  -  1  do 
if  not  odd (PI)  then 

Prepared_Screen(Field_Poaite(PJ*l], Field.Poaitat PJ 1  -  PI J  :»  *FF; 
PJ  :*  PJ  ♦  3 

until  Fleld_Posits(PJ]  ■  0 
end;  (  Procedure  Prepere_Screen  ) 

Procedure  Display. Input_Fleld(Screen_Nua, Fld.Nua  :  integers 

var  End_Of _Field  s  integer ) ; 


var 

Dl,  02,  Ypoa,  Field, End  :  Integer; 
begin 

Fld.Nua  : «  Fld_Nua#3  -  2; 
with  Screen! Screen _Mual  do 
begin 

02  :•  -3; 

gotoXY( ( Field.Poeita! Fld.Nua) M )  ahr  1, 

Fleld_Poeita( Fld.Nua » 1 ) i ; 

repeat 

02  :•  02  ♦  3;  Ypoei •Field.Poaita! D2*Fld_Nua* 1 1 ; 

End.Qf. Field  : *  Field_Poeita( D2*Fld_Nua)  » 

<*7F  and  Field. Poaita! D2*Fld_ Nua*2J )  -  1; 
for  01  :»  Field.Poaita! D2»Fld_Nua)  to  Cnd.Of .Field  do 
if  Odd (01 )  then 
begin 

if  Screen. laage! Ypoa, 01 J  in  (32,43)  then 

Diaplay_Screen( Ypoa, Dl )  : •  Screen. leeget Ypoa, 01 ) 
elae 
begin 

Diaplay .Screen ( YPoa, 01 1  s«  *FF; 

Dlaplay _Screen(  YPoa,  01  •  1  )  «  Hi. Lite 

end 

end 

until  Field  Poaltal D2«Fld_Nua»2 )  <  127 

end 

end;  (  Procedure  Oiaplay. Input. Field  > 


File  Naan:  SCREEMIO. PAS  <cont) 


Procedure  Scrnnn_Input < Diaplay_Nr : byta;  Start_Finld,  £nd_Flnld s Integer ) ; 
var 

OrigX,  OrigY,  XDiap,  Y_Diap,  Field_Nr,  Finld_End,  Dnc_Pt  :  intngnr; 
InTypa  :  byta; 

Hon  :  atrmg(4); 

function  Input_Error  :  boolaan; 

var 

InChar  :  byta; 
bagln 

Input_Error  :*  Trua;  InChar  :*  lo(Rnga.AX); 

if  (InTypa  in  (65. .901)  and  (Inchar  *  13)  and  (X_Dlap  <  Fiald_End*2) 
than  Exit; 

if  <X_Dlap  *  Fiald_£nd  *  2)  and  (InChar  <>  13)  than  Exit; 

If  (InTypa  *  36)  and  (X_Diap  *  OrigX)  and  (InChar  *  13)  than  Exit; 
if  (InTypa  *  36)  and  (Not( Inchar  in  ( 13, 45, 46, 46. . 57] ) )  than  Exit 
alaa  if  (InTypa  in  (76,1101)  and  (Not( InChar  in  ( 13, 46. . 57 J ) )  than 
Exit 

alaa  If  (InTypa  «  99)  than 
bagln 

If  (Dlapiay_Scrnan( Y_Diap, X_Diap-2)  ■  54)  and 

(MotdnChar  in  (73,62)))  than  Exit 
alaa  if  ( Dlaplay_Scraan( Y.Diap, X_Dlap-2)  <>  54)  and 

(InChar  <>  13)  than  Exit 

and 

alaa  If  (InTypa  ■  85)  and  (MotdnChar  in  ( 13,  46.  .  57,  65.  .  90) ) )  than 
Exit 

alaa  if  (InTypa  ■  89)  and  (MotdnChar  in  (13,56,57)))  than  Exit 
alaa  If  (InTypa  ■  66)  and 

(MotdnChar  in  (46.  .  57,  65.  .  71, 74,  76,  77.  .  60,  82.  .  66,  89) )  )  than  Exit 
alaa  if  (InTypa  ■  77)  and 

(MotdnChar  in  (65.  .  71,  74,  76,  77.  .  60,  62.  .  66,  69) )  >  than  Exit 
alaa  if  (InTypa  ■  71)  and  (MotdnChar  In  (69,79,67)))  than  Exit 

alaa  if  (InTypa  ■  63)  and  (Mot( InChar  in  (65,62)  >>  than  Exit 

alaa  if  (InTypa  ■  90)  and  (Mot< InChar  in  (69,79,62,67)))  than  Exit 

alaa  If  (InTypa  «  62)  and  (Not (InChar  in  (65,60)))  than  Exit 

alaa  if  not ( Inchar  in  ( 1 3, 32. . 1 26 J >  than  Exit; 
if  (InTypa  In  (66,77))  and  ( Mot ( InChar  in  (46. .57)))  and 

(Poa(Non  *  chr ( InChar ),  Valid.Month )  >  0)  than  Exit 
alaa  Input_Error  : *  Falaa; 
and;  (  lntarnal  function  Input  Error  ) 
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File  Naae:  SCREEN 10. PAS  (cont) 


procedure  Rub.Out; 


begin 

If  X.Diap  -  OrigX  then  Buzzer 
else  with  Screen l Display _Nrl  do 
begin 

X.Diap  :*  X_Diap  -  2; 

If  Screen.IaageC Y.Disp,  X.Disp]  In  [32,45]  then 
X_Dlsp  X.Disp  -  2; 

if  Display .Screen! Y.Disp, X_DlapJ  *  46  then  Dec_Pt  : =  0; 
If  Screen_Iaage( Y_Dlsp,  X_Dlsp]  *  77  then 
delete  <  Non, length ( Hon > ,  1 ) ; 

Dlaplay_Screent  Y_Dlsp,  X_Dlsp]  »  *FF ; 
gotoXY (< X_Diap*l >  div  2, Y_Disp) 

end 

end;  (  Internal  procedure  Rub_0ut  ) 
procedure  Display. Input < InChar  :  Integer); 


begin 

if  <X_Dlsp  >*  Field, End  »  2)  or  ((X.Disp  *  OrigX)  and 

(InChar  x  13) )  then 


begin 

Buzzer;  Exit 
end; 

with  ScreenC Display _ Nr  1  do 
begin 

if  InType  «  36  then 
begin 

If  ((InChar  *  45)  and  (X.Disp  <>  OrigX))  or 

((InChar  *  46)  and  < Dec.Pt  <>  0))  or 

((X.Disp  *  Dec.Pt  *  6)  and  (Dec.Pt  <>  0))  then 

begin 

Buzzer;  Exit 

end 

else 

if  InChar  *  46  then  Dec _ Pt  : •  X  Dlap 

else 

if  (X.Disp  *  Field. End  -  6)  and  (Dec.Pt  *  0>  then 
begin 

Dec.Pt  X  Dlap  »  2; 

Display. Screenl Y.Disp, X.Dlap]  ;•  InChar; 
Display .Screenl Y.Disp, X.Dlsp»2 ]  :*  46; 
X.Dlsp  : *  X.Disp  ♦  4; 

gotoXY < ( X.Dlap* 1 >  div  2, Y  Dlsp);  Exit 

end 

end 


75 


File  Name:  SCREEN 10. PAS  (cont) 


•la*  if  InType  =  68  then 
begin 

if  not  (InChar  in  (46. .57})  then 
begin 

if  X.Diap  =  OrigX  then 
begin 

Display_Screen( Y.Dlap, OrigX }  :*  420; 

Display  ScreenC Y.Diap,  0rigX»2 J  : *  420 

end 

elae  if  X_Diap  3  OrigX  ♦  2  then 
begin 

Diapiay_Screen( Y.Diap, X_Diap]  : 3 

Oiaplay _Screen ( Y Diap, OrigX ] 
Diaplay_Screen( Y.Diap, OrigX)  s*  430 
end ; 

X_Diap  : 3  OrigX  ♦  6 

end 

elae  if  << Diaplay .Screen ( Y.Diap, OrigX)  3  51)  and 
< Not (Inchar  in  (46,49)) >>  or 

<Diaplay_Screen( Y.Diap, OrigX 1  in  (52. .57))  then 
begin 

Buzzer ; Exit 

end 

end; 

if  Screen_Iaage( Y.Diap,  X.Diap)  3  77  then 
Hon  s3  Hon  ♦  chr( InChar); 

Dixplay_Screen( Y.Diap, X_Diap)  : 3  InChar;  X.Diap  :«  X.Diap  *  2; 
if  Screen. Iaage( Y.Diap, X.Diap)  in  (32,45)  then 
X.Diap  :*  X.Oiap  ♦  2; 

if  X.Diap  <  Field.End  ♦  2  then  gotoXYt < X_Diap*l )  div  2,  Y.Dlap) 

end 

end;  (  internal  procedure  Dlaplay.Input  ) 

procedure  Clear.Hi.Lite; 

var 

Cl,  C2,  C3  :  integer; 


begin 

if  (X.Diap  3  OrigX)  and 

<Screen(Diapley_Nr ). Fleld_Poalta( 3*Field_Nr )  >  127)  then 
begin 

repeat 

Field.Nr  :«  Field.Nr  *  1 

until  Screen( Diaplay.Nr ) . Field. Poaita) 3*Field_Nr )  <  128; 
Exit 
end ; 


File  Naae:  SCREEN 10. PAS  (coni) 


if  ScreenCDisplay_Nr ]. Screen_IaageCQrigY,  OrigX]  =  36  then 
with  Screen C Display _Nr ]  do 
begin 

if  Dec _ Pt  =  0  then 
begin 

Display _ScreentGrigY, X_Disp]  :=  46; 

Dec_Pt  : =  X_Diap 
end; 

Cl  : *  DecPt  ♦  4; 

C2  :*  FieId_End; 

for  C3  OrigX  to  Field_£nd  do 

if  0dd<C3)  then  Prepared_Screen(OrigY, C3]  :=  9FF; 
for  C3  t *  Cl  downto  OrigX  do 
if  0dd<C3)  then 
begin 

if  Diaplay_Screen{QrigY,  C3]  in  (45, 46, 48. . 57]  then 
Prepared_Screen COrig Y, C2] s =Display_ScreenCOrigY,  C3] 
else  Prepared_Screen[OrigY, C21  :*  48; 

C2  :*  C2  -  2 

end 

end 

else 

begin 

for  C2  : *  OrigX  to  Field.End  do 
if  0dd<C2)  then 

Prepared.ScreenlOrigY, C21  :*  Display _ScreentOrigY,  C2] 

end 

end;  (internal  procedure  Clear_Hi_Lite  ) 

begin  (  procedure  Screen_Input  ) 

if  ESC  then  Exit; 

Field_Mr  : *  Start_Field; 

repeat 

Prepared_Screen  s *  Display_Screen ; 
if  Field_Nr  >  End_Field  then  Exit; 
with  Screen t Display.Nr ]  do 

if  < Field_Posita( 1601  ■  1)  and  <Nindow_InfotField_Nr*4-3]  <>  0> 
and  <Field_Nr  <»  40)  and  ( Not < Correcting ) >  then 
Display_Vindow<  Diaplay.Nr, Field_Nr  ) ; 
with  Screen! Diapl ay _ Nr  1  do 
begin 

X_Diap  :»  Field_Posits( Field_Nr *3-21 ; 

OrigX  : «  X_Diap; 

Y_Diap  s*  Field_PoaitslField_Nr»3-l J ; 

OrigY  : ■  Y_Diap 
end ; 

Dec_Pt  j *  0;  Hon  s«  * 

Dlsplay_Input_Field<  Dlsplay_Nr, Field_Nr, Field_£nd ) ; 


File  Name:  SCREEMIO.  PAS  (cont) 


repeat 

Regs. AX: =90000;  intr <916, Regs) ; 
if  < PF_Key )  and  (hi (Regs. AX)  in  C 59. .681)  then 
begin 

Selection  s  =  hi (Regs. AX)  -  58; Exit 

end 

else  PF_Key  :=  False; 

if  (hi (Regs. AX)  in  (72,75,77,801)  and  (Correcting)  then 
begin 

Scan_Code  :*  hi (Regs. AX);  Exit 
end; 

vith  Screen (Display_Mrl  do 

InType  : =  Screen_Iaage( Y_Diap,  X_Disp) ; 
if  hi(Regs.AX)  =  78  then  Regs. AX  ts  13; 
if  InType  in  (68,71,77,82,83,85,90,99,117]  then 
Regs. AX  : =  ord(upcase<chr(lo(Regs. AX) ) ) ) ; 
if  lo(Regs.AX)  =  27  then  ESC  :  =  True 
else  if  lo(Regs.AX)  =  8  then  Rub_0ut 
else  if  Input_Error  then  Buzzer 

else  if  lo(Reg8.AX)  <>  13  then  Display_Input( lo(Regs. AX > ) 
until  < <lo (Regs. AX)  =  13)  and  (not  ( Input_Error ) ) )  or  (ESC); 
if  ESC  then  Exit; 

Clear_Hi_Lite; 

Display_Screen  :=  Prepared_Screen ; 

Field.Hr  :»  Field_Mr  *1 

until  Screen( Display _Nr). Field_Posits( Field_Mr*3-21  *  0; 
end;  (  Procedure  Screen_Input  1 

Function  Field_Contents(Screen_Mueber, Field_Mr  :  integer)  :  StringSO; 
var 

Rl,  End_Of_Field,  X_Disp,  Y_Disp  *.  Integer; 

Input_String  :  StringdO; 

begin 

if  ESC  then  Exit; 

Input_String  : « 
with  Screen ( Screen. Number ]  do 
begin 

X.Disp  s*  Field_Posits( 3*Field_Mr  -  2); 

Y_Disp  :■  Field_Posits( 3»Field_Mr  -  1); 

End_Of_Field  :*~X_Disp  *  <97F  and  Field_Posits( 3*Field_Nr J» - 1 ; 
for  Rl  :■  X_Disp  to  End_Of_Field  do 

if  (Odd(Rl))  and  < Display_Screen( Y_Disp,  Rl J  <>  9FF)  then 

Input_String s * Input_Str ing*chr ( Display_Screen( Y_Disp,  Rl ) > 

end; 

Field_Contents  :*  Input_String 
end;  (  Function  Fleld_Contents  > 
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Procedure  Fill_Field<Display_Nr,  Field_Nr : byte;  DiBplay_String:String40) ; 
var 

Fl,X_Coord  :  integer; 
begin 

if  ESC  then  Exit; 
with  Screen ( Display_Nr 1  do 
begin 

FI  :=  Field_Mr ;  X_Coord  i*  <Field_PositeI3*Fl-2)  *  1)  ahr  1; 
gotoXY<X_Coord, Field_Poaits( 3»F1  -  13 >;  write< Display, String ) 

end 

end;  (  Procedure  Fill_Field  l 
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Procedure  Stats_Record_IO< Action  :  char;  LHon  :  integer; 

var  Work_Stata  :  Gener alState ) ; 


begin 

if  LHon  *  0  then 
begin 

aeek<Stats_File, 12) ;  read < Stats.Flle,  Vork_Stats) ;  Exit 
end; 

Seek <Stata_File,  LHon  mod  12  V; 
if  Action  in  ( 'R' ]  then 
begin 

reed(Stata_File,  WorkState) ; 

if  <lo<CurDete  dlv  512  >  >  Hork_Stats. Year >  and 

(LHon  1  Curaon)  then 

begin 

if  LHon  *  1  then 
begin 

aeek ( Stats.Fi le,  12 ) ; 

«r ite< Stata_File,  Vork_Stats> 
end; 

FillChar  <  Vork_Stats, 257, 0) ; 

Work_Stata. Year  :•  Cur Date  dlv  512; 

Seek <Stata_F lie,  LHon  aod  12); 
vrlte<Stata_Flle, Work  Stats)  ; 

end 

end 

else 

begin 

Seek < State. Fi le, LHon  aod  12);  »r jte(Stata_File, Work  State i ; 
Flush  <  Stats _Fi le ) 

end 

end;  <  Procedure  Stats_Recor d_ 10  ) 
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Procedure  Record_General_Stats( Rec.Hon  :  integer); 
v»r 

Loen_Aet  :  reel; 

CatNDX, Rl  :  integer; 

LCat  :  etringCSl; 

Lgrd  :  string! 31; 

Duete  :  string! 34); 

Stats_Rec  :  General _Ststa; 

begin 

Stata_Record_IO< 'R',Rec_Hon,  Stata_Rec); 

Loan _ Aat  :*  Real_Value< Field, Contenta< 1,  20) ) ; 

LGrd  :=  Field, Contents < 1,  2) ;  DuSta  *. »  Field,Contenta( 1. 8 > ; 
for  Rl  :  *  1  to  length < DuSta )  do  DuSta! Rl)  :*  upcase( DuSta! Rl 1 i ; 

Rl  :*  Integer, Value (copy (Lgrd,  3,  1 ) ) ; 

•  ith  Stata_Rec  do 
begin 

if  Field_Contenta( 1, 3)  *  'R'  then 
begin 

Grade_Stata(2.  9).0ty  Grade.Stata! 2.  9) .  Oty  ♦  1; 
Grade_StatsC2,91.  Aat  :*  Grade_Statal  2,  9) .  Aet  »  Loan  Aat 

end 

else  if  ( Lgrd! 1 ]  *  'E' )  and  (Rl  <>  0)  then 
begin 

Grede_Statsll.Rn.aty  :*  Grade_Statsll.Rn.ety  ♦  1; 
Grade_StatsCl.RlJ.ABt  :  *  Grade_StatsCl.Rn.Aat  ♦  Loan  Aat 

end 

else  if  (LgrdCl)  *  '  R '  >  and  <R1  in  Cl..  41)  then 
begin 

Grade_Statsl2.  RlJ.ety  :*  Grade.Statal 2,  Rl ) .  Oty  •  i; 
Grede_Stets(2.  RlJ.  Aat  .*  Grade. State! 2.  Rll . Aat  *  Loan  Aat 

end 

else  if  Rl  in  Ci..4l  then 
begin 

Grade_Stats(2,Rl*4J.ety  :*  Grade. State! 2. Rl *4 )  Oty  •  i: 
Grade. StatsC  2.  Rl  >4  J .  Aat  -.  « 

Grade. State! 2.  Rl *4 1.  Aat ‘loan  Aat 

end; 

if  < poa i  'ORD ' ,  DuSta >  <>  0»  or  < poa<  ' FOCA DuSta 1  <>  01  then 
Rl  :  ■  1 

else  if  (post ‘DLI DuSta »  «»  O'  or  » pos<  ' POR \ DuSta -  <>  o  *  her 
Rl  :•  2 

else  Rl  3: 

Duty  Station! Rl) . at y  3  Duty  Stat ion! Rl )  Ot  r  •  1 
Duty. Station! Rl)  Aat  *  Duty  Stat ion! Rl I  Aat  •  Loan  Aat . 

LCat  :*  Field  Contents • 1 .  1 9  > ; 

CatRDK  : *  Integer  Value' copy ■ LCat.  3,  2 1  ' 
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if  CatNDX  in  Cl.. 10]  then 
begin 

i f  (CatNDX  in  C7..101)  or  (LCatCSl  =  'R'l  then 
Cat HDX  :  =  CatNDX  •  1; 

Loan.CatalCatNDX).  Oty  :=  Loan.CataC CatNDX 1 .  Qty  *  1; 

Loan  Cat a C CatNDX } -  A at  :=  Loan.Cata C CatNDX 1 .  Amt  *  Loan.Amt 

end 

end ; 

5tata_Recoro_I0< 'W*,  Rec.Hon,  Stata_Rec) 
end;  (  Procedure  Record_Generai_Stata  ) 

Procedure  Ledger .Record. 10 < Action  ;  char;  LHon  :  integer; 

var  Nork_ Account  s  AER_Accounta) ; 


PrevHonth  :  AER  Accounta; 

NDX,  Rl,  Ledger .Honth  ;  integer 
Al,  A6  ;  real; 


V 

i* 


begin 

NDX  ; =  LHon ; 
it  LHon  -  0  then 
begin 

aeek  <  Accounta_Fllef 12); 

read  <  Accounta_F He,  York .Account ) ; 

Exit 
end  ; 

Seek < Accounta_Fi le, LHon  mod  12 >; 
if  Action  i  R'  then 
begin 

read  < Account a_ Fi le, Work .Account ) ; 

if  <lo<CurDete  div  512)  >  Nork.Account. Entry.Year )  and 
(CurHon  *  LHon)  then 
begin 

if  LHon  *  1  then 
begin 

aeek < Accounta.File, 12) ; 

»nte(  Accounta.Fi le,  Work.Account ) 
end ; 

FillChar < Work. Account, 199, 0) ; 

Work.Account. Entry.Year  ;®  Curdate  div  512; 
aeek < Accounta.File,  LHon  mod  12); 

»r lte<  Accounta.File, Work .Account ) 

end 
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else 

with  KorkAccount  do 

repeat 

AXOOOC  21  i=  0 ; AXOOOC 3 1  :=  0;A2000(7]  :=  Q; 
for  R1  :=  1  to  6  do  A2000C7)  :=  A2000(7]  *  A2000CR1); 
for  R1  :=  7  to  10  do  AX000C2)  s*  AXOOOC23  *  A2000CR1); 
for  R1  s=  9  to  16  do  AXOOOC 33  ;=  AXOOOC 3 3  ♦  A3000tRll; 
AXOOOC 4 1  :=  AXOOOC 1]  *  AXOOOC 23  -  AXOOOC 33; 

AXOOOC 6 3  :=  A3000C 10 3 ♦A6000C 17 3 -A2000C 33 -A6000C 18 3  - 

A6000  C 1 9  3 ♦ A6000C  20  3  * A 6000 C  21 3  * AXOOO  C  5  3 
Seek < Account s_File, NDX  mod  12); 
write! Accounta_File, Work_Account ) ; 

Flush(Accounts_File) ; 
if  NDX  aod  12  <>  Curaon  aod  12  than 
begin 

NDX  :  =  NDX  ♦  1; 

A1  :  =  AXOOOC 43;  A6  :=  AX000C63; 
seek < Accounts_File, NDX  aod  12); 
read(Accounts_Flle, Work_Account) ; 

AXOOOC 13  s=  Al;  AXOOOC 53  :=  A6 

and 

else  NDX  :  =  ~1 
until  NDX  =  -1 

and;  (  Procedure  Ledger_Record_I0  3 

Procedure  Ledger (Cat, Itea,  LDate  s  integer;  PAat  :  real); 


Posting_Account  s  AER_Accounts; 
begin 

Ledger _Record_IQ< '  R' , Ldate, Posting_Account  > ; 
if  (Cat  *  6)  and  (Itea  =  15)  then 
begin 

Cat  : =  3;  Itea  :=  10 

end 

else  if  (Cat  *  6)  and  (Itea  =  17)  then 
begin 

Cat  :*  2;  Itea  :=  3 

end 

else  if  (Cat  *  6)  and  (Itea  =  16)  then  Itea  t=  17; 
•ith  Postlng_Account  do 
if  Cat  »  2  then 
begin 

A 20001 Itea)  :*  A2000CItea3  *  PAat; 
if  Itea  in  Cl.. 53  then  A2QTYCItea)  := 


A20TYC Item)  *  1 
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else  if  Cat  *  3  than 
bag  in 

A  30001  ItesJ  :  *  ADOOOlItee)  *  PAat  . 

if  Itea  in  (10.  .  1  3  J  than  A  JOT  Y  (  1 1  »•  j  AJUTYiltae. 

and 

tit*  i Cat  1  6) 

bag  in 

A60O0 1  1 1 aa 1  .«  AfeOOOfltes)  •  PAat; 

if  I taa  in  (17.19)  than  AfeOTYIIteel  ■*  AbttTYlItaa)  •  I 
and ; 

Ladgar _Record_ 10* LData, Poat ing_ Account > 
and;  (  Procadura  Ladgar I 
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Function  Pnntar_0l<  ;  byte; 
var 

PI  ;  byta; 
bagin 

Praparad_Scraan  *  Display _Scraan; 

rapaat 

Rags. AX  :*  90200; 

Rags. DX  ;*  0; 

Intr  <  917, Rags  > ; 
if  hi (Rags. AX)  <>  144  than 
if  Print_0n  than 
bagin 

Diaplay_Vindov(6, 11 > ; 

PI  :*  KeyDepressed 

and 

until  (hi (Rags. AX)  »  144)  or  (ESC)  or  <Mot(Print_On > > ; 
if  hi (Rags. AX)  «  144  than 
begin 

Printer  JDK  s*  0; 

Print_0n  :*  Trua 

end 

else  if  (ESC)  or  ( Mot (Print_0n ) )  then 
begin 

Printer_0K  :*  1; 

Print_0n  ; =  False 
end ; 

Display_Screen  ;=  Prepared_Screen 
end;  (  Function  Printer  OK  } 
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Function  Tab1  SpACM  :  intagar >  String23; 


vtl 

T 1  ; 

Taap  SpACt  St ri ng23; 

tag  in 

Tt«p>ptct  .  •  ; 

for  Tl  :■  1  to  Sp«CM  do  TMp.3p«ct  :•  TMp  Spict  »  ' 

T«b  :»  Taap.Spaca 
and;  i  function  Tab  t 

Procadura  Fora. 110b; 

eotiat 

LCat  :  arraytl..lll  of  atring(231  *  (‘1401*.  N/R  of  Pay', 

'1402:  Lom  of  Funda ' ,  ' 1403:  Radical /Dantal ' ,  ' 1404 :  Funaral', 
'1409:  Eaargancy  Tr aval ' 1 406 :  Inlt  Rant  &  Dapoait', 

1406:  Rant  to  Stop  Evict. 1407:  Food', ‘1400:  Utllltlaa', 

'1409:  Auto', '1410:  Othar ' > ; 

var 

FI,  LCat_HDX  :  intagar; 

AatL  :  raal ; 

Tb,  Dbl_0n,  Dbl.Off,  PStat  -.char; 

Sat Tab, ClrTab, UL_0n, JL.Off  :  atrlngt 31; 

P10.P15, LCat_Str  :  atrlnglSl; 

P12, Pit  :  String! 61 ; 

Loan .Ant  :  atrlng(7]; 

Pay. Ant  :  atringllOl; 

Lina,  Llnal  :  Stnng(661; 

OTH  :  atrlngt  21 1 ; 

Grph,  Box,  BoxX,  Act, Rat  :  atrlngt 231; 

0TH1  :  atrlngt 271; 

Raka, Rakal  :  atrlngt401; 

bag  In 

LCat_Str  :■  Fiald_Contanta< 1,  19> ; 

LCat_N0X  :*  Intagar_Valua<copy <Lcat_Str, 3,  2) > ; 
if  (LCat_Strt51  »  'R'>  or  < LCat_NDX  in  t7. .101)  than 
LCat.MDX  :■  LCat.NDX  *  1; 

AatL  :•  Raal_Valua<Fiald_Contanta( 1, 20) ) ;  Str< AatL: 7:2, Loan_Aot > ; 
Pay_Aat  :■  Fiald_Contanta( 1, 12)  *  'x'  * 

String_Int< 1 ♦Data_Diffaranca<  Fiald_Contanta< 1,  14 ) , 

Fiald_Contanta( 1,  13) ),  2) 

Oth  :*  Fiald_Contanta( 1, 15) ;  Othl  :»  Fiald_Contanta< 1,  16) ; 

Raka  :*  Fiaid_Contanta< 1, 23 ) ;  Rakal  :*  Fiald_Contanta< 1, 24 ) ; 

PiO  :*  chr<18>;  P12  :*  chr<27) *chr(58) ;  P15  :«  chr<13); 

Sat Tab  :*  chr<27) ♦chr<68) ;  ClrTab  :■  chr<27) *chr(68) *chr<0) ; 

Tb  :*  chr(9); 
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UL_Qn  : *  chr ( 27 ) *chr < 45 > »chr < l > ;  UL_0£f  :*  chr < 27 > *chr < 45 > *chr <0 ) ; 
Dbl_0n  s*  chr<14);  Dbl_0ff  :*  chr < 20); 

Grph  :*  chr ( 27) *chr < 76 ) »chr < 1 1 ) *chr (0) ; 

BoxX  : «  chr <0) *chr <0) *chr <0 ) *chr<  255) ♦chr (195) ♦chr < 165) *chr < 153 ) * 
chr ( 153  > *chr  <165) *chr (195) *chr  <  255) ; 

Box  chr  <0 ) *chr  <0 ) *chr  <0 ) *chr  <  255) *chr  <1291 *chr  < 129 ) *chr  < 129) * 

chr  <129) *chr (129) *chr  <129) *chr  <  255 ) ; 
if  Field_Contents< 1, 3)  1  'A'  then 
begin 

Act  :*  'ACTIVE'  *  Grph  ♦  BoxX;  Ret  :=  'RETIRED'  «•  Grph  ►  Box 

end 

else 

begin 

Act  :»  'ACTIVE'  »  Grph  ♦  Box;  Ret  :=  'RETIRED'  »  Grph  »  BoxX 
end; 

if  length < 0th  >  =  0  then  0th  i=  ' _ '; 

If  length  < Othl )  *  0  then  Othl  :=  ' _ '; 

Line  :  *  "; 

for  FI  :*  1  to  88  do  Line  Line  *  chr <196); 

Linel  s«  line; 

xr ite< 1st, PI 2, chr <  27 ) *chr  <88>  *chr  <6) *chr <96> ) ; 
write* 1st, ClrTsb, SetTsb, chr <37), chr <44), chr < 60),  chr < 77), 
chr < 95), chr <0) ) ; 

writeln* 1st, P12, chr<218)  ♦  Line  ♦  chr<191)); 

writeln* 1st, chr < 179) , P10, Tsb< 14 ), 'ARMY  EMERGENCY  RELIEF  INDIVIDUAL 
LOAN  LEDGER', P12,Tb,Tb, chr < 179) >; 
insert  < chr < 194 ),  Linel, 31 ) ; insert < chr  < 194 ) , Linel, 38) ; 
insert  <  chr  < 194 ) , Linel , 54 ) ; insert  <  chr  < 194 ) ,  Linel,  71 ) ; 
write* 1st, P12 ) ; 

writeln* 1st, chr  <195),  Linel, chr  < 180) ) ; 

writeln* 1st, chr < 179), P15, '  NAME  OF  SERVICE  MEMBER' , P12, Tb, chr < 179) , 

P15, 'GRADE', P12, Tb, chr < 179) , UL_0n,  P15,  Tab* 7 ) ,  'STATUS',  Tab<8), 
UL_0ff,P12, Tb,chr< 179), P15, 'SOCIAL  SECURITY  NUMBER' , P12, Tb, 
chr < 179), P15, '  CASE  NUMBER', P12, Tb, chr < 179) ) ; 
with  Index  do 
with  Loan  do 
begin 

write* 1st, chr < 179), P12, NAME, P12,  Tb,  chr <179), 

Field_Contents< 1,2), Tb, chr  < 179) , , P15, Act, '  ' , Ret, 

PI 2, Tb, chr  <179), '  ',  P10,  SSN_Str <SSN), P12, Tb, chr < 179), 
P10, Dbl_0n, Copy  <  SSN_Str  <  SSN  >, 8, 4 ) , '/' ); 
if  Loan_Nr  <  10  then 

writeln* 1st, Loan_Nr  si, Dbi_Gf f , PI 2, Tb, chr  <179) ) 
else  writeln < 1st, Loan_Nr: 2, Dbl_0ff , P12, Tb, chr < 179) ) 
end ; 

Linel  :=  Line; 

insert < chr < 197 ) , Linel, 31 ) ;  insert < chr < 197) , Linel, 38) ; 
insert < chr < 197 ) , Linel, 54 ) ;  insert < chr < 197) , Linel, 71 ) ; 
writeln* 1st,  chr  < 195 ) ,  Linel, chr  < 180) ) ; 
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vritelndst,  chr< 179>,  PIS, 

*  APPLICANT  <11  other  than  Service  Heaber > ', P12,  Tb,  chr< 179), 
P15,  'RELATION',  PI 2,  Tb,  chr < 179), P15, Tab<6>, 'REPAYMENT',  P12, 

Tb, chr< 179), PI 5, Tab<6), 'DELINQUENT', PI 2,  Tb,  chr < 179),  P15, 

Tab  <  6 ) ,  ' UNCOLLECT I BLE ' , P 1 2, Tb, chr  < 1 79 ) ) ; 

Linel  :■  copy < Line, 1, 50) ; 

inaert <chr < 197) , Linel, 16 ) ;  inaert (chr  < 197 ) ,  Linel,  33) ; 
delete< linel, SO, 2) ; 

vnteln<  lat,  chr  <  179) ',  Field_Contenta  <  1,6),  Tb,  chr  <  179) ,  PIS, 

Field_Contenta< 1, 7 ), PI  2, Tb, chr < 193), Linel, chr < 180) > ; 

Linel  : *  copy (Line, 1, 36) ;  inaert (chr < 193 ), Linel, 31 ) ; 
vritelndst, chr<195>,  Linel, chr(180>,  P15,  'MONTHLY  ALLOTMENT:  ',  P12,  Tb, 
chr(179),P15, 'DATE  ', UL_On, Teb< 16), UL.Off, P12,  Tb,  chr<179>, 
PIS,  'AMOUNT  ',P12,  UL_0n,~Tab(12),UL_011,Tb,chr<179)  >; 
vrite( lat,  ClrTab,  SetTab,  chr (44 ) , chr (60 ) , chr ( 77 ) , chr  <95 > , chr (0) ) ; 
vriteln(lat, chr < 179), PIS, '  MILITARY  ADDRESS  OF  SERVICE  MEMBER', P12, 
Tb, chr< 179), P15, 'AMOUNT  ' , P12, Pay.Aat : 10, Tb, chr (179) ,  PIS, 
'AMOUNT  ' , UL_0n, Tab< 14 ) , UL_0f 1, PI 2, Tb, chr < 179), PIS,  'DA  FORM 
1106:',  P12,  Tb, chr (179)); 

vr iteln  < lat, chr <179 ) , Field_Contenta  < 1 , 8 ) , Tb, chr < 1 79 ) , P15,  ' START 
P12, Field_Contenta ( 1, 13), Tb, chr ( 179), PIS,  'LETTERS  TO 
BORROWER: ' , P12, Tb, chr ( 179) , Pi 5, 'APPROVED  ' , P12, UL_0n, Tab< 10 > , 
UL_0f f ,  Tb, chr (179) ); 

Linel  :*  copy ( Line, 1, 37 ) ; 

vriteln< lat, chr ( 193), Linel, chr< ISO), PIS, 'STOP  ',P12, 

Field.Contentad,  14),  Tb, chr  (179),  PIS,  'DATE  ',  UL_0n,  Tab(  16), 
UL_0«,  P12,  Tb,chr(179),PlS,  'DA  FORM  1105-3: ', P12, Tb, 
chr< 179) ) ; 

vr iteln (lat,  chr < 179), PIS, '  HOME  ADDRESS  OF  SERVICE  MEMBER', P12, Tb, 

chr<179), P15, 'OTHER  ', OTH, P12, Tb, chr (179), PIS, 'DATE  ',UL_0n, 
Tab( 16 ) ,  UL.Of £,  P12,  Tb,  chr  <179 ) , P15, ' POSTED  ' , P12, UL_0n, 

Tab  <1 1 ) ,  UL_0f f , Tb, chr  <1 79  >  > ; 

vr iteln < lat,  chr  < 17i ) ,  Field.Contents d , 9  > , Tb, chr (179 ) , P15, 0TH1 , P12, Tb, 
chr  <  179),  PIS,  'DATE  ',  UL_0n,  Tab<16) ,  UL_0£f,  P12,  Tb,  chr  <  179) , 
UL_0n, Tab( 15), UL_0f 1,  Tfajchr (179 )) ; 

vr iteln (lat,  chr  < 179) ,  Field_Contenta< 1,  10), Tb, chr  < 179) , Tb, chr  < 179) , Tb, 
chr (179) ,  Tb,  chr<179)); 

Linel  :*  Line; 

inaert (chr <194 ), Linel,  11 > ;  inaert < chr ( 194 ), Linel,  24 ) ; 
inaert (chr < 193) , Linel, 38) ;  inaert (chr ( 194 ) , Linel, 52) ; 
insert (chr (193), Linel, 54 ) ;  insert (chr < 194 ), Linel, 64 ) ; 
insert < chr < 193), Linel, 71 ) ;  insert ( chr < 194  > , Linel,  76 ) ; 
vr iteln (1st, chr (195),  Linel,  chr (180) ) ; 

vrite< lat,  ClrTab,  SetTab,  chr< 17 ), chr ( 30) , chr  <  58 ) , chr  <  70) , chr  <  82  > , 
chr  <  95 ) ,  chr  <  0 ) , chr (13)); 

vr iteln (1st, chr (179) , '  ',P15,  'DATE', P12, Tb, chr< 179), P15,  'CHECK  OR 

RECEIPT',  P12,Tb,chr<179>,Tabdl),  PIS,  'EXPLANATION',  P12,Tb, 
chr ( 179), '  ',  PIS,  'AMOUNT  OF  LOAN', P12, Tb, chr<179), '  ',P15, 
'AMOUNT  OF  LOAN', P12, Tb, chr (179), '  ', PIS, ' BALANCE' , P12,  Tb, 

chr  < 179) ) ; 
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wrlteln* 1st, chr ( 179),  Tb,  chr  <  179  (,  PI 9,  '  NUMBER ' ,  PI  2,  Tb.  chr'l?9> 

Tb,  chr < 1791,  Tb,  chr * 1 79 1 ,  PI  3,  *  REPAYMENTS  * ,  PI  2,  Tb.  chr < 179), 
Tb,  chr < 179) > ; 

Linel  : *  Line; 

inwrt  ( chr  « 197 ) ,  Linel ,  1 1  )  j  insert  (chr  <  197 1 ,  Lliwl,  24  )  ; 
insert <  chr  < 197  >, Linel, 92  > ;  insert ( chr  < 197 ) , Linel , 64 ) ; 
inatrt  (chr  (  194  ),  Lift#  1 , 72)  ;  mMrt  <  chr  <  197  ) ,  Linel,  76  )  ; 
ma*r  t  <  chr  <  194  ) ,  Linel ,  89  )  ; 
vrlttini 1st, chr < 199),  Lins 1, chr ( ISO) >  s 

writs'  1st, ClrTsb, SstTsb, chr ( 17  > , chr <  30) ,  chr *96>,chr*70),chr(78), 
chr ( 62 ) ,  chr  < 91 ) ,  chr  <  99  >,  chr (0 ) ,  chr  < 1 3  >  > ; 
wr ltsln< 1st, chr  < 179) , Field .Con tents* 1,17),'  ’ , chr  < 179 ) , P10, 

Field.Contents* 1,  16),  PI 2,  Tb,  chr < 179),  Lest ( LCst _NDX ) ,  Tb, 
chr < 179),  P10,  Field .Contents* 1,  20) >6,  PI 2,  Tb, chr < 179),  Tb, 
chr  (179),  Tb,  chr  ( 179),  P10,  copy  ( Losn.Ast,  1, 4  >  (6,  PI 2,  Tb, 
chr ( 179) , P10, copy ( Losn.Ast,  6,  2 ): 2,  PI 2,  Tb,  chr  *  179  >  > ; 

Linel  s«  Line; 

insert (chr* 197) , Linel, 1 1 ) >  insert (chr* 197), Linel, 24 >  j 

insert (chr < 193), Llnel, 92) ;  insert < chr < 197 >,  Linel,  64  , 

insert (chr  < 197 ) ,  Linel,  72) s  insert (chr  *  197 ), Linel,  76 > ; 

insert (chr ( 197  > , Linel,  69) ; 

wr lteln( 1st, chr ( 199 ) , Linel ,  chr (60) ) ; 

insert* chr ( 196),  Linel,  92) ;  delete(Llnel,  93,  1 ) j 

write* 1st, ClrTsb, SetTsb, chr (17),  chr (30),  chr  *  70 > ,  chr ( 76 ) ,  chr  ( 82 ) , 
chr ( 91 ) , chr  *  99 ) ,  chr ( 0 ) ,  chr ( 1 3  >  >  > 
it  *  length *Rmks>  *  40)  or  ( length (Reksl >  *  40)  then  Pit  :•  P15 
else  Pit  •  P12; 
for  FI  :*  1  to  19  do 
begin 

if  FI  in  (1,21  then 
begin 

wrlteln ( 1st,  chr (179),  Tb, chr  *  179) , Tb, chr ( 179  > ,  Pit,  Rsks, 
P12,  Tb,  chr* 179), Tb, chr *  179),  Tb, chr < 179), Tb, 
chr* 179),  Tb,  chr (179) >; 

Rsks  s  *  Reksl 

end 

else 

wrlteln* 1st,  chr ( 179) ,  Tb, chr  *  179 ) ,  Tb,  chr  *  179) ,  Tb,  chr  *179), 
Tb,  chr* 179), Tb,  chr* 179) ', Tb,  chr ( 179),  Tb,  chr* 179) ) ; 
wrlteln (1st,  chr ( 199 ) , Linel, chr ( 196 ) ,  chr ( 160 ) > 
end; 

wrlteln ( 1st,  chr ( 1 79 ) ,  Tb,  chr ( 1 79  > , Tb, chr ( 1 79 ) , Tb, chr  *  1 79 ) , Tb, 
chr* 179), Tb, chr( 179) ', Tb,  chr ( 179),  Tb,  chr* 179) ) ; 

Linel  ••  *  Line; 

Insert ( chr ( 193) ,  Linel,  11);  Insert (chr ( 193 > ,  Linel,  24 ) ; 

Insert (chr* 196),  Linel,  92) ; 

Insert (chr* 193),  Linel,  64 ) ;  insert ( chr ( 193), Linel, 72) ; 

Insert (chr* 193), Linel, 76) ;  Insert (chr* 193),  Linel,  69) ; 
wrlteln* 1st,  chr* 192) ,  Linel,  chr ( 217 ) ) ; 


Fiia  iiiwi  hardcopy. pas  <cont> 


wntaln<let,P10.  Dbl.On,  ‘DA  FORM  1101' , Tab< 21 ) , 

copy  <  SSM_Str < Indax. SSN>,6, 11 ),  Dbl.Off, PI 2  > ; 
for  FI  s*  1  to  4  do  wrltaln<iat» 
and;  (  Procadura  Fom_ll06  ) 

Procadura  Print  Haadar  <  Haadar  _  I  dant  :  lntagar > ; 


Hdr  :  stringtAOJ; 
bag  in 

if  Haadar_Idant  in  Cl.. 61  than 
if  Haadar _ I dant  •  1  than 

Hdr  : •  *  Chaptar  1 3  Loana  aa  of  ' 

alaa  If  Haadar_Idant  *  2  than 

Hdr  $•  '  All  Dallnquant  Loana  aa  of  ' 

alaa  if  Haadar_Idant  •  3  than 

Hdr  t«  '  Uncollactlbla  Loana  Awaiting  Approval  aa  of  ' 
alaa  if  Haadar_Idant  ■  4  than 

Hdr  ;■  '  Paid -Off  Loana  aa  of  ' 

alaa  if  Haadar.Idant  *  3  than 

Hdr  :■  'Tranafar-In  Loana  Awaiting  lat  Rapayaant  aa  of  ' 
alaa  Hdr  i*  '  Tranafar-Out  Loana  Awaiting  Approval  aa  of 
wrlta< lat,  chr < 16),  chr < 13> > > 
if  Haadar_Idant  In  17.. 9]  than 

wrltaln<  lat,  Tab<21 ),  < Haadar _ I dant -6 >  »2, 

'  Honth  Old  Dallnquant  Loana  aa  of  ',CSData> 
alaa  If  Haadar_Idant  •  10  than 
wr ltaln< lat,  Tab< 17), 

'Dallnquant  Loana  Nora  than  3  Hontha  Old  aa  of  *,CSData> 
alaa  wr 1 tain < lat, Tab< 16), Hdr , CSData) ; 

wr italn< lat,  chr <  27 ) ,  chr (66), chr (0) , chr  <  27 >, chr  <68 ) , chr  < 1 1 ) , 

' •*06>G', chr<0> ) ; 

wr 1 tain ( lat, chr <9) , chr <9) , chr < 9) , chr <9> ,  chr <9>, 

‘LOAN  ACCOUNT  LAST'); 
writaln( lat, chr (9), 'NANS', chr < 9), 'SSN',chr<9>, 

'GRADE  STATUS  NR  BALANCE  PAYHENT'); 
writalnUat) 

and;  (  Procadura  Prlnt.Haadar  ) 

Procadura  Pr lnt_Raport< Loan_ Indax  :  lntagar;  Account  s  Ent ira_ Account ) ; 
var 

Grada  :  atrlng(31; 

S,  Tb  :  char; 

BData  »  atrlng(9); 

Balanca  :  raal; 

Box  ;  atringdSl; 


68 


Ftl*  Haae:  HARDCOPY.  PAS  i eont ' 

begin 

Box  : *  chr  <  27 ) ♦chr  *  76 ) »chr  < 11 >  *chr  <  0 )  »c hr (0) »chr (0) »chr  <  0  >  *chr  < 253 1 • 
chr *129)  *chr  ( 129) ♦chr* 129) *chr « 129) ♦chr* 129) *chr  < 129) » 
chr <  233) ; 

wr l te< let, chr  < 18  > , chr  <  27 ), chr  <68  >, chr  <0  > , chr  *  27 ) , chr  <  68  >, chr  *  3  > , 
chr<30>,chr*43),chr*48)(chr<37>,chr<62>,chr<71),chr<0), 
chr  *13)); 

Tb  : *  chr  <  9 ) ; 
with  Index  do 

with  Account ( Rec.Post Loan. Index )). Loan.Data  do 
begin 

write* lat, Box, Tb, Naee, Tb, SSK.Str * SSM) ) ; 

Decode. Or ade.and.Statua* Grade.and.Statua, Grade, S ) ; 
if  S  «  'A*  then 

write* lat,  Tb,  Grade, Tb, 'Active' ) 
elae  write* lat,  Tb, Grade, Tb, 'Retired' ) ; 

Spi it .Date.and. Honey  *  Balance. Info, BDate, Balance) ; 
writeln* lat, Tb,  Loan.Nr, Tb, Balance>7:2,  Tb,  BDate) 

end 

end;  <  Procedure  Print.Report  1 

Procedure  Pr int .General .Ledger < Print.Record  >  ACR.Accounta ) ; 
var 

Tb  s  char ; 

PI,  P2  s  integer; 

Prt.Str  s  StrlngBO; 

Lgr.Fat  ;  text; 

begin 

Tb  :*  chr *9);  P2  :*  1; 

write* let, chr  < 18 ) , chr <  27 ) , chr  *68 ) , chr (0), chr ( 27 ) ,  r (68 >, chr  <  50 ) , 
chr *60),  chr *0), chr < 13) ) ; 
writeln* lat,  Tab *23),  Field_Contenta( 5, 10) ) ; 
aaaign  < Lgr.Fat, LEDGER.FRH ) ;  reaet* Lgr.Fat) ; 
for  PI  : ■  1  to  46  do  with  Print_Record  do 
begin 

if  PI  in  11,3,5,17,19,29,31,33,35,37,45]  then  writelnUat) 

elae 

begin 

readln<Lgr_Fat, Prt.Str ) ; 

if  PI  in  12,6,20,34]  then  writelnUat,  Prt.Str ) 
elae  if  PI  in  (4,18,30,32,36,46]  then 
begin 

writelnUat,  Prt.Str,  Tb,  Tb,  AX000CP2]  :10:2); 

P2  : *  P2  ♦  1 

end 

elae  if  PI  in  (7. .11]  then 
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File  Naae  HARDCOPY.  PAS  (conti 


•  nteln  ( let,  Prt.Str,  Tb,  A2QTY(P1  -6)  :4,  Tb, 
A 2000 ( PI -6 ] t 10: 2) 
else  l f  PI  *  40  then 


*nteln<  1st,  Prt.Str,  Tb,  A2QTY(3) :4.  Tb,  A2000( 3) :  10:2) 
else  if  PI  in  (12. .161  then 

vritelnt 1st, Prt.Str, Tb, Tb, A2000CP1 -6 J: 10:2) 
else  if  PI  in  (22. .251  then 

eriteln< 1st,  Prt.Str, Tb, A30TY(P1 -12) :4,  Tb, 

A3000( PI - 12) : 10: 2  > 


•Is*  if  PI  *  36  then 


vriteln< 1st, Prt_Str, Tb, A3QTY( 10) :4, Tb, A3000( 10) : 10: 2 ) 
•Is*  if  PI  in  (21,26. .28)  then 

vrlteln< 1st,  Prt.Str,  Tb,  Tb,  A3000(Pl -12) : 10:2) 
else  if  PI  in  (41,42)  then 

»riteln< let, Prt_Str, Tb, A60TY( PI -23) : 4,  Tb, 
A6000(P1-231 : 10:2) 
else  if  PI  in  (43,44)  then 

vritelnUst,  Prt.Str,  Tb,  Tb,  A6000(Pl-23) :  10:2) 
else  «riteln( 1st, Prt_Str, Tb, A60TY( 17] :4, Tb, 

A6000( 17 ): 10:2) 


end 


end} 

Close < Lgr_F»t > ; 

for  PI  :*  1  to  20  do  vriteln(lat) 
end;  (  Procedure  Print.Genersl.Ledger  ) 


File  Nsee:  AERPROCS. PAS 

Function  Vslid_Account_Code< Account.Code  :  String5)  j  boolean; 
begin 

if  < Integer. Value< copy (Account.Code, 1, 4) >  -  2000  in  ( 1. . 6, 8. . 10) )  or 
< Integer. Value< copy < Account.Code, 1, 4) )  -  3008  in  (1..8))  or 
< Integer .Value (copy < Account.Code, 1, 4 ) )  -  6014  in  (1..7)>  then 
Valid.Account.Code  :=  True 

else 

begin 

Valid.Account.Code  : *  False; 

Buzzer 

end 

end;  (  Function  Valid  Account  Code  ) 


File  Name:  AERPROCS. PAS  (cont) 


Procedure  Display_Account_Ident < DlapNr  :  integer); 
bag  In 

with  Index  do 
bagin 

Decode_Grade_and_Status(Grade_and_Statua, Grade, Statua) ; 
Flll_Field<  Disp_Mr,  1, Naaa) ; 

Fill_Field<  Dlap_Nr, 2, SSM_Str < SSN > ) ; 

Fill_Fiald<  DiapHr , 3, Grada) ; 

11  Disp_Nr  <>  4  than 

il  Statua  -  'A*  than  Fill_Field(Diap_llr,  4,  'Active  ') 
alsa  Fill_Field(Diap_Nr, 4, 'Retired') 

and 

and;  (  Procedure  Display_Account_Ident ) 

Procedure  Display _Loana(Diap_Nr,  Start_Field,  Oiap_Start  :  Integer; 

Account  :  Entire_Account ) ; 


LOate,  BDate,  AOate  :  String9; 

01  :  integer; 

Loan_Aat,  Balance,  Allot_Aat  :  real; 

Loan_Statua  :  array  10. .61  of  atring(32); 

begin 

D1  :*  Diap_Start; 

Loan_StatusC2)  :*  'Delinquent  '; 

Loan_Statua( 31  :*  'Uncollectible  (not  yet  approved)'; 

Loan_Status( 4 1  s*  'Paid-Off.  Holding  for  30  Days.  '; 

Loan_Statusl5)  :=  'Tranafer-In.  Awaiting  let  Pyat. ' ; 

Loan_StatusC6)  s =  'Transfer -Out.  Awaiting  HANCOR.  '; 

repeat 

with  Account ( Rec_Pos ( D1 ]]. Loan_Data  do 
begin 

Loan_StatusCO]  :=  'Current  '; 

Fill_Field(Disp_Mr,  Start_Field, String_Int<Loan_Hr, 2) > ; 
split_Date_and_Honey ( Loan_Inf o,  LDate,  Loan_Aat  > ; 
Fill_Field<Disp_Nr, Start_Field*l, String_Real (Loan_Aat,  7) ) 
Split_Date_and_Money <  Balance_Info,  BDate,  Balance) ; 
Fill_Field<Disp_Nr, Start_Field»2, String.Real <  Balance,  7) ) ; 
if  Repay_Hethod  and  97F  <>  0  then 

Fill_Field<  Disp_Nr, Start_Field«-3, '  CH-13' ) 
else  if  Repay_Hethod  =  0  then 

Fill_Field(Diap_Hr,  Start_Field*3, 'Allot' ) 
else  Fill_Field(DiBp_Hr,  Start_Field*-3,  'P-Note'); 
Split_Date_and_Honey  <  Allot_Info, ADate, Allot_A*t ) ; 


Fila  Naaa:  AERPROCS. PAS  (coni) 


If  Acct_Status  *  1  than 

Fill_Fiald<Diap_Nr.  Start_Fiald»4,  'Various'  ) 

•la* 

Fill_Fiald<Diap_Nr,  Start_Fiald*4, 

Str ingRaal ( Allot  Aat, 7  )  ) ; 
if  abs<Loan_Aat  -  Balanca)  <  0.001  than 
BData  :  =  'Nona  Vat  '; 

Fill_Fiald<  Diap_Nr, Start_Fiaid*5,  BOata) ; 

if  <Acct_Statua  >  0)  and  (aba(Loan_Aat  -  Balanca)  <  0.001) 
and  < trunc< Allot, Info  *  32.0)  -  CurOata  >  0)  than 
Loan_StatuaCO)  :  *  'Rapayaanta  to  atart  '• 

copy ( AOata. 4. 3) 

alaa  if  Acct_Statua  *  1  than 

Loan_Statual 1 1  s«  'CH-13  at  ' »String_Int < Rapay.Hathod,  3 ) * 

'  canta  on  tha  dollar'; 

Fill_Fiald<Oisp_Nr,  Start_Fiaid*-6,  Loan_Statua(  Acct_Statual ) ; 
Start_Fiaid  ;■  Start.Fiald  ♦  7>  01  :•  01  ♦  1 
and; 

until  <D1  «  Diap_Start  *  5)  or  (Rac_Poa(Dll  «  0) 
and;  <  Procadura  Display _Loana  ) 

Procadura  Gat_Account < Kay_Valua  :  String25;  var  Nr_of_Loans  :  intagar; 

war  Account  ;  Entira_Account ) ; 

war 

Racord_Fila_Poaition  :  intagar; 
bagin 

Nr_of_Loana  s*  0; 

Gat_Indax_Racord < Kay  Valua,  Racord_Fila_Poaition ) ; 
if  Racord_Fila_Poaition  <>  0  than 
bagin 

FillChar < Account, 405, 0 ) ;  FillChar  <  Rac_Poa, 30, 0 ) ; 

FillChar ( Stata_Coda, 7,0> ; 

saak ( Loan_Fila, Indax. Accounta_Ptr ) ; 

rapaat 

raad ( Loan_Flla, Loan) ; 

Nr_of_Loana  :■  Nr_of_Loana  *  1; 

Account (Loan.  Loan_Nrl. Loan_Data  j«  Loan; 

AccountlLoan. Loan_Nrl.  Rac.Loc  :*  FilaPoe<Loan_Fila>  -  1; 
Stata_CodaCLoan. Acct.Statual  *. 3  Stata_Coda( Loan. Acct  Status) 

*  l; 

Rac_PoetNr_of_LoansJ  :■  Loan. Loan.Nr ; 
saak ( Loan_Fila, Loan.  Maxt_R»cord ) 
until  Loan. Naxt_Racord  1  0 

and 

and;  (  Procadura  Gat_Account  ) 
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Flit  Naae:  AERPROCS.  PAS  (cont> 


Procedure  Loan,Entry< Entry _Type  •.  integer  >  ; 


Cat  :  Stnng5; 

LI,  L2,  VHon,  LCat,  Hon_Diff  :  integer ; 

AOate, LDate,  BDate  :  Stnng9; 

Account  :  Entire, Account ; 

begin 

repeat 

Prepare_Screen< 1 ) ; 

Oiaplay_Screen  : *  PreptredScreen; 

1 f  Entry_Type  *  3  then 
begin 

gotoXY<3,  17)  ;vrite<  'Date  of'); 
gotoXY<2, 18) ;vrite< '  Grant  '); 
gotoXY<50, 17) ;write< 'Grant  *); 

Screen, Input < 1,1,4); 

Screen, Input ( 1,  8,  8) ; 

Screen, Input ( 1, 17, 20) ;  if  ESC  then  Exit 

end 

else  if  Entry_Type  in  (1,21  then 
begin 

Screen, Input< 1,1,4);  if  ESC  then  Exit; 
Get_Account<Field_Contents( 1, 4), LI,  Account ) 

repeat 

Screen_Input< 1, 5,  5) ;if  ESC  then  Exit; 

L2  :=  Integer_VaIue( Field, Contenta( 1,  5) ) 
until  L2  in  (0. . 141 ; 
if  LI  <>  0  then 

if  L2  <  Rec,PoatLlJ  then 
begin 

L2  :=  Rec,Pos(Ll I ; 

Fill_Field < 1, 5, String_Int<L2,  2) ) 
end; 

L2  :=  L2  *  1; 

Screen, I nput < 1, 6, 20) ;  if  ESC  then  Exit; 
if  Entry _Type  =  1  then 
begin 

Fill_Field<l, 21, 'None  Yet  '); 
Fill_Field<l, 22, Field_Contents< 1, 20) > 
Screen_Input ( 1,  23,  24 ) 

end 

elae  Screen, Input < 1, 21,  24 > 

end 

else 

begin 

gotoXY<66, 4) ;  xrite< 'Old  Loan  Nr  '); 


rtf  r  v 
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il*  Rase-.  AERPROCS. PAS  > cont  ■ 

Screen.lnput*  l.  1. 4  •  ;  it  ESC  then  Ent. 

Get  Account ( F l»ld_Cont»nt»i 1 , 4 1 ,  LI .  Account • 

repeat 

Screen_Input ( 1.  25.  25> ;  xt  ESC  th»n  Exit; 

L  2  :*  Inttqvr _  Val ue <  F itld  Conttnti < 1 ,  25  *  1 
until  i:  in  I1..131; 
ll  LI  <>  0  then 

repeat 

il  Account ( L2 }. RecLoc  <>  0  than  L2  : *  L2  ♦  1 
until  < Account (L2J.  Rec,Loc  *  0)  or  ( L2  *  15); 
Fill_Field*l.  25,  Stnng_Int<L2, 1  >  ) ; 

Scraan_ I nput * 1 ,  11.  13);  Screen, Input < 1,  17,  17); 

Screen, Input ( 1, 20,  22  > 
end; 

if  ESC  then  Exit; 

gotoXY  <  5, 2  > ; Text Background <  Red ) ; TextColor (  White  > ; 
write* 'Please  VERIFY  information.  Preaa  *, 

chr<17),  * -i  if  correct  or  ESC  to  atop  entry.  '); 

Text Background* Blue) ; TextColor < Black ) ; 

repeat 

if  ESC  then  Exit 
until  Key, Depressed  ■  13; 

FillChar* Index, 47,0) ;FillChar (Loan, 25,  0) ; 
with  Index  do 
begin 

Rase  :*  Field_Contents( 1, 1 ) ; 

Grade  :*  Field_Contents( 1,  2) ; 

Status  s *  Field, Contents (1,3); 

Grade, and, Status  :*  Encode_Grade_and_Status (Grade,  Status ) 
SSH  s*  Real, Value* Field_Contents< 1, 4 > ) 
end; 

with  Loan  do 
begin 

Loan, Info  :*  Real_Value< Field_Contents( 1, 20) > ; 

LDate  :*  Field, Contents* 1, 17 ) ; 

Extract_Date_Data<LDate,  WMon,  Code) ; 
if  Entry_Type  =  1  then  Ledger < 3, 10, WMon,  Loan_Info> 
else  if  Entry_Type  =  3  then  Ledger (3, 11, WMon, Loan_Info) ; 
if  Entry_Type  <>  3  then 
begin 

Loan_Nr  : =  L2; 

Loan_Info  ;*  Merge_Date_and_Money < LDate, Loan_Info) ; 
Allot_Info  :=  heal_Value*Field_ContentB*l, 12) ) ; 
ADate  ;=  Field_Contents< 1, 13) ; 

Balance_Info  ;=  Real,Value(Field_ContentB* 1,  22) ) ; 
if  Entry, Type  =  1  then  BDate  ;*  LDate 
else  BDate  :=  Field_Contents< 1, 21 ) ; 


File  Naee:  AERPROCS.  PAS  <cont> 


if  £ntry_Type  =  2  then 
begin 

Extract_DBte_Dat a ( BDate, WHon, Code  > ; 

Ledger  <6, IE, NHon, Balance_Inf o ) 
end ; 

if  Entry_Type  3  2  then  Acct_Status  :=  5 
else  Acct_Status  : 3  0; 

Balance_Info  : 3 

Herge_Date_and_Honey <  BDate, Balance_Info) 
if  Field_Contents< 1, 11 )  =  'A'  then  Repay_Nethod  :=  0 
else  Repay_Hethod  :=  $80; 

Allot_Info  s=  Herge_Date_and_Money<ADate,  Allot  lnfo) ; 
Acct_Status  :=  New_Status< 'A',  Loan) 

end 

end;  (  with  Loan  do  ) 

if  Entry_Type  in  (1,2,41  then  Write_Index_Record; 
if  Entry _Type  in  (1,31  then  Record_General_Stats< WHon ) ; 
if  <Entry_Type  in  (1,21)  and  <Printer_0K  =  0)  then  Form_1108; 
Until  lo(Regs.AX)  3  27 
end;  t  Procedure  Loan_Entry  1 

Procedure  Record_Payaents<  Entry  _f!ode  :  integer); 
var 

Rl,  LoanNr,  Field,  PHon,  Mr_Loans  ;  integer; 

Hatch_Found  s  boolean; 

PDate  :  stringCS); 

Rcpt_Mr  :  String(81; 

Allot_Ast,  Payment  :  real; 

Account  :  Entire_Account; 

procedure  Post<Loan_Nua  :  integer;  New_Balance  :  real); 
begin 

if  ESC  then  Exit; 

Display_Screen  :=  Prepared_Screen ; 
with  Account (Loan_Nusl. Loan_Data  do 
begin 

Acct_Status  :=  New_Status(  'D' ,  Account  (  Loan,  Nua  1.  i-oan  C'a*  • 
if  New_Balance  =  0. 0  then 
Acct_Status  : -  4 

else  if  Acct_Status  <>  1  then  Acct  Status  - 
Balance.Info  :*  J1erge_Date_and_Roney  <  PDate.  Ne*  Raian.-e 
Acct_Status  :*  New_Statua< ' A Account  i  Loan  Nua  «'• 

end ; 

seek( Loan _ File, Account! Loan _ Nua ) . Rec  Loc • , 
write! Loan_File,  Account! Loan  Nua ) .  Loan  Det • 

Display _Loans< 4, 12, 1. Account 1 
end;  (  internal  procedure  Apply  to  Loan  ■ 
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procedure  Apply _Payaent < Loan_Nua  :  integer); 
var 

LDate,  BOate  :  string (91; 

VI  :  integer; 

Balance,  New_Balance,  Ledger_A»t  :  real; 

Answer  :  string[2); 

Transaction_Coaplete  :  boolean; 

begin 

if  ESC  then  Exit; 
if  Loan_Nua  <>  0  then 
begin 

Prepared_Screen  :=  Display _Screen; 

Fill_Field<4, 4, String_Int (Loan_Nua, 2) ) ;  gotoXY <48,  2) ; 

write< 'Press  ' ,  chr  <  17 ) ,  '  — 1  if  Loan  Hr  ' ,  Lo*n_Hu»:2,  *  is  the*) 

gotoXY < 48, 3) ;  write < '  Correct  Loan.'); 

gotoXY ( 40, 5 ) ;  write<*If  incorrect,  press  any  other'); 

gotoXY<48, 6) ;  write< '  key  to  select  correct  loan.'); 

if  Key_Depressed  <>  13  then  Loan_Mua  :*  0; 

Display _Screen  : =  Prepared_Screen; 
if  ESC  then  exit 
end; 

if  Loan_Nus  =  0  then 
begin 

repeat 

Loan_Nua  : =  0;  Screen_Input <4, 10, 10) ;  if  ESC  then  Exit; 
Answer  :=  Field_Contents<4, 10) ; 

Answerd)  :  =  u pease < Answer 1 1 J) ; 

Fill_Field<4, 10, '  ');  Loan_Hua  :=  Integer _Value( Answer > ; 

if  Loan_Nua  <>  0  then 

if  Account C Loan_Hus ]. Rec_Loc  =  0  then  Loan_Nua  :•  0 
until  <Anawer(l]  in  C'A'..'C'J)  or  <Loan_Nua  <>  0); 
if  Answer  *  'A'  then  Ledger <2, 1, PHon, Payment) 
else  if  Answer  *  'B'  then  Ledger < 2, 2, PHon, Payment ) 
else  if  Answer  3  'C'  then  Ledger <2, 4, PHon, Payment) ; 
if  Answerd]  in  ['A'..'C']  then  Exit 
end; 
repeat 

Fill_Field<4, 4, String_Int<Loan_Hua,  2) ) ; 

Tranaaction_Cosplete  : =  True; 
with  Account! Loan_Hua] . Loan_Data  do 
begin 

Split_Date_and_Honey<Balance_Info, Date, Balance) ; 
New_Balance  :*  Balance  -  Payaent; 

if  New_Balance  <*  0.001  then  Fill_Field<4, 8, '  0.00') 

else  Fill_Field<  4, 8, String_Real<Hew_Balance,  7) ) ; 
Prepared_Screen  : =  Display _Screen ; 
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if  Nev_Balance  >=  -0.001  then 
begin 

if  New.Balance  <  0.001  then  New.Balance  :  =  0.0; 
Post(Loan_Num, New.Balance) ; 

Ledger  ( 2, 3,  PMon,  Payment  > 

end 

else 

begin 

gotoXY (48,  2); 
if  Balance  <  0. 001  then 
begin 

vrite<'Loan  Paid  Off.  Should  I  apply'); 
gotoXY (48, 3) ; 

write < 'the  ', Payment :7:2, '  repayment  to:'); 
Ledger_Amt  :=  Payment;  Payment  :=  0.0 

end 

else 

begin 

Payment  : *  Balance; 

write( 'Applying  ', Payment: 7: 2, 

'  to  Loan.  Should'); 
gotoXY(48, 3); 

write('I  apply  remaining  ', 

Abs( New.Balance) :7:2,  '  to:'); 

Ledger.Amt  :=  Abs<Nev_Balance) 
end; 
repeat 

VI  :=  0;  Screen_Input(4, 11,11);  if  ESC  then  Exit; 
Answer  : =  Field_Contents (4,11); 

VI  :=  Integer.Value ( Answer ) ; 
if  VI  <>  0  then 

if  Account [ VI ]. Rec_Loc  *  0  then  VI  :=  0 
until  (AnswerCU  in  C'A'T'B'J)  or  (VI  <>  0); 
gotoXY ( 48, 2 ) ; 

write( '  ' ) ; 

gotoXY (48, 3); 

write( '  '); 

Fill_Field<4, 11, '  '); 

Prepared_Screen  : =  Display .Screen; 

Post ( Loan.Num, 0. 00 ) ; 

if  Payment  <>  0.0  then  Ledger ( 2,  3,  PMon,  Payment > ; 
if  AnswerCl]  =  'A'  then  Ledger (2, 1,  PHon,  Ledger. Amt) 
else  if  AnswerCU  =  'B'  then 
Ledger (2, 4, PMon, Ledger.Amt) 

>  else 

begin 

Transaction.Complete  :=  False; 

,  Loan.Num  :s  VI; 

end 
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end  (  if  Nev_Balance  <  0. 001  > 
end  (with  Account  do) 
until  Transaction_Complete 
end;  (  internal  procedure  Apply ^Payment) 

begin  (  Main  Body  Record_Payments  ) 

PDate  :=  ";  Rcpt_Nr  := 
repeat 

Prepare_Screen  <  4 ) ; 

Display _Screen  :=  Prepared_Screen; 
if  Entry_Mode  »  1  then 
begin 

Fill_Field<4, 5, PDate) ;  Fill_Field<4, 6, Rcpt_Nr > 
end; 

if  Entry _Node  in  11,2)  then  Field  ;=  2 
else  Field  : »  1; 

if  Field_Contents<4, 5)  *  "  then  Screen_Input <4, 5, 6) ; 
if  ESC  then  Exit; 

PDate  :=  Field_Contents<4, 5) ;  Rcpt_Mr  :=  Field_Contents< 4,  6) ; 
Extract_Date_Data< PDate,  PHon,  R1 ) ; 

Screen_Input<4, 7, 7) ;  if  ESC  then  Exit; 

Payment  : =  Real_Value(Field_Contents<4,  7) ) ; 

Screen_ Input <2, Field, Field) ;  if  ESC  then  Exit; 
Get_Account(Field_Contents<4, Field) , Nr _Loans,  Account) ; 
if  Nr_Loans  <>  0  then 
begin 

Display_Account_Ident<4) ;  Display_Loans<4, 12, 1, Account) ; 
Hatch_Found  :=  False; 

R1  ;=  0; 
repeat 

R1  ;=  R1  ♦  1; 

with  Account CRec_Pos I R1 ) J. Loan_Data  do 
begin 

Split_Date_and_Honey  < Allot_Info,  Date,  Allot_Amt ) ; 
if  abs(Allot_Amt  -  Payment)  <  0.001  then 
begin 

Hatch_Found  :=  True;  Apply_Payment<Loan_Nr ) 
end; 

if  ESC  then  exit 

end 

until  (Hatch.Found)  or  <R1  =  Nr_Loans); 
if  Not  < Hatch_Found )  then  Apply_Payment <0) ; 
if  ESC  then  Exit 
end  (if  Nr_Loans  <>  0  ) 
else 

begin 

repeat 

Screen_Input< 4, 9, 9) ;  if  ESC  then  Exit; 
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R1  :=  Integer_Value<Field_Contents<4, 9) ) 
until  R1  in  (1. . 5] ; 

Fill_Field<4, 9, '  '); 

Ledger <2, Rl, PHon, Payment ) 
end; 

gotoXY<48, 2) ;arite< 'Press: ' ) ; 

gotoXY<49, 4) ;erite< '  ', chr<17), ‘ to  post  another  payment') 

gotoXY< 51,  6) ; write* 'ESC  to  return  to  main  menu') 
until  Key .Depressed  =  27 
end;  <  Procedure  Record.Payments  ) 

Procedure  Display_Financials(Hode  :  integer); 

type 

String4  »  string(41; 

Input.Set  ■  set  of  1..4; 


var 

Disp.Acct  :  AER_ Accounts; 

Valid. Input  :  Input.Set; 

WSDate,  Test .Date  :  String9; 

Acct.Code  :  string[4); 

Dl,  THon,  WHon,  Acct.Cat,  Acct.Item,  Copt  :  integer; 


procedure  Total .Financials; 
var 

Temp.Fin  :  AER. Accounts ; 

End. Month,  Tl,  T2,  T3  :  integer; 

A2  :  array tl.. 101  of  real; 

A3  :  array(9. .161  of  real; 

A6  :  array (17. .21]  of  real; 

A 20  :  array (1.. 51  of  integer; 

A 30  :  array (10. . 13]  of  integer; 

AGO  :  array ( 17. . 19]  of  integer; 

AX  :  array  Cl.. 61  of  real; 

begin 

if  CurHon  *  1  then 
begin 

T3  :=  0;  End.Month  :=  12; 

end 

else 

begin 

T3  : *  1 ;  End.Month  : =  CurHon 
end; 

Ledger_Record_I0< ' R' , T3, Disp.Acct ) ; 
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for  T1  :=  2  to  End_Honth  do  vith  Disp_Acct  do 
begin 

for  T2  :  =  1  to  10  do  A2CT23  :  =  A2000CT23; 
for  T2  :  =  9  to  16  do  A3CT23  :  =  A3000CT23; 
for  T2  :  =  17  to  21  do  A6CT23  :*  A6000CT23; 
for  T2  :  =  1  to  5  do  A2QCT23  :  =  A2QTYCT23; 
for  T2  :  =  10  to  13  do  A3QCT23  :  =  A3GTYCT23 ; 
for  T2  :  =  17  to  19  do  A6QCT23  :  =  A6QTYCT23; 
for  T2  :=  1  to  6  do  AXCT23  :»  AX000CT21; 

Ledger _Record_ 10 < 'R', Tl,  Disp_Acct) ; 

for  T2~:  =  1  to  10  do  A2000CT23  :  =  A2000CT23  A2CT23; 

for  T2  :  =  9  to  16  do  A3000CT23  :  =  A3000CT21  A3CT23; 

for  T2  :  =  17  to  21  do  A6000CT23  :  =  A6000(T23  ♦  A6(T2]; 

for  T2  :*  1  to  5  do  A20TYCT23  :=  A2QTYCT23  ♦  A20CT23; 
for  T2  :  =  10  to  13  do  A3GTYC T23  :  =  A3QTYCT23  ♦  A3QCT23 

for  T2  :  =  17  to  19  do  A6QTYCT23  :*  A6QTY t T2 1  ♦  A6QCT23 

for  T2  :=  1  to  6  do  AXOOOCT23  :*  AXOOOCT23  *  AXCT23 
end  (vith  0iap_Acct  ) 

end;  (  internal  Procedure  Total_Financials  i 

procedure  Write_Accounts; 

begin 

vith  Disp_Acct  do 
begin 

gotoXY ( 30, 4  ) ; vr ite  < AX0001 11:10:2); 
for  I  :*  1  to  10  do 
if  I  in  Cl.. 51  then 
begin 

gotoXY  <  24, 4*1 > ;  vrite<  A20TY  C 1 1 : 4 ) ; 
gotoXY ( 30, 4*1);  vrite< A2000C 1 3 : 10:2) 

end 

else 

begin 

gotoXY (30, 4+1 ) ; vrite( A2000C 13:10:2) 
end; 

gotoXY ( 30, 15) ;vrite< AXOOOC23 :10:2>; 
gotoXY <30, 17) ;vrite(AXOOOC53 :10:2) ; 
gotoXY <24, 16) ;vrite< A3QTYC 103 : 4 ) ; 
gotoXY ( 30, 16) ;vrite< A3000C 103 : 10:2) ; 
gotoXY (24, 19) ;vrite<A60TYC173 :4) ; 
gotoXY (30, 19) ; vrite( A6000C 173:10:2); 
gotoXY ( 24 ,  20 ) ; vri te  <  A2QTY (33:4); 
gotoXY ( 30, 20 ) ; vrite <  A2000C  33:10:2); 
gotoXY  <  24, 21 ) ; vrite<  A60TYC 16  3:4); 
gotoXY <30,  21 ) ; vrite (A6000C 163:10:2); 
gotoXY<24, 22) ;vrite< A60TYC 193 :4) ; 
gotoXY (30, 22) ; vrite ( A6000C 193:10:2); 
gotoXY <30, 23) ; vr ite (A6000C 203 : 10:2) ; 
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gotoXY  <  30, 24 ) ; »r ite  < A6000 1 211:10:2); 
gotoXY< 30,  2S) ; vrite( AX000C61 : 10:2> ; 
for  I  :=  9  to  16  do 

if  I  in  (10. . 131  then 
begin 

gotoXY <64, 1 -5) ;  write < A30TY( 1 1:4); 
gotoXY <70, 1-5) ;  write<A3000CIl :10:2) 

end 

else 

begin 

gotoXY <70,  1-5) ; write< A3000C 1 1 : 10:2) 
end; 

gotoXY <70, 12) ;write< AX000(31 :10:2) ; 
gotoXY  <  70, 13) ;vrite< AX000C41 : 10:2) ; 
gotoXY <77, 24) 

end  (with  Nain_ Account*) 
end;  (internal  procedure  Write.Accounts) 

begin 

WSDate  :■  CSDate;  Copt  :*  0;  Niton  :*  Cur  Hon; 

if  Hod*  *  2  then  Valid.Input  :■  (1,21  else  Valid_Input  :*  Cl..  41; 

repeat 

if  <<Copt  <>  7)  and  <Hode  =  1))  or  (Hod*  *  2)  then 
begin 

Prepar*_Scr#en < 5 ) ;  Display .Screen  :=  Prepared.Screen; 
Fill_Fi*ld<5, 10, 'GENERAL  LEDGER  FOR  H0NTH  OF  * 

♦  copy (WSDate,  4,  6) > 

L*dger_R*cord_I0< 'R',  VHon, Disp.Acct) ; 

Nr ite. Accounts; 

repeat 

Scr**n_Input<5, 4-Hode, 4-Hode) ;  if  ESC  then  Exit; 

Copt  :*  Integer. Value< Fi*ld_Content*< 5,  4-Hode) ) ; 
if  Not < Copt  in  Valid.Input)  then  Buzzer 
until  Copt  in  Valid.Input; 
end ; 

if  (Copt  »  Hode)  or  (Copt  *  7)  then 
begin 

Copt  :*  Hode; 

Scr**n_Input< 5, 1, 1 ) ;  if  ESC  then  Exit; 

Test.Dat*  :*  '  ‘  *  Field_Contents<5, 1 > ; 

Extract_Dat*_Data<Test_Date,  THon,  D1 ) ; 

Code  :*  Date.Difference<CSDate, Test.Date) ; 
if  (Not (Cod*  in  (0. .Ill))  or  <01  >  Cur Date)  then 
begin 

Display.Windov  <  6, 6 ) ; 
if  Key.Depressed  =  27  then  Exit 
els*  Display.Screen  :=  Prepared.Screen 

end 
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else 

begin 

WSDate  : =  Test_Date; 

WHon  ;  =  THon ; 

Ledger_Record_IO( 'R', WHon, Oisp_Acct) 

end 

end; 

if  ((Hode  =  2)  and  (Copt  =  1))  or  ((Mode  =  1)  and  (Copt  =  3))  then 
begin 

repeat 

Screen_Input(5, 6-Mode, 6-Mode) ;  if  ESC  then  Exit; 

Acct_Code  :=  Field_Contents(5, 6 -Mode) 
until  Valid_Account_Code( Acct_Code) ; 

Acct_Cat  :=  Integer_ Value ( Acct_Code( 1 3 ) ; 

Acct_Itea  s=  Integer_Value(copy (Acct_Code, 3, 2) ) ; 
if  Mode  *  2  then 


begin 

Screen_Input(5,8, 8) ;  if  ESC  then  Exit; 

Ledger (Acct_Cat, Acct_Itea, WHon, 

Real_Value(Field_Contents(5, 8) ) ) ; 
Ledger _Record_10( 'R', WHon, Disp.Acct) 

end 

else 

begin 

if  Acct_Cat  -  6  then 
begin 

if  Acct_Itea  *  16  then  Acct_Itea  :=  17 
else  if  Acct_Itea  =  15  then 
begin 

Acct_Cat  : =  3;  Acct_Itea  : =  10 

end 

else  if  Acct_Ites  =  17  then 
begin 

Acct_Cat  : =  2;  Acct_Itea  : =  3 

end 


end; 

if  ((Acct_Cat  a  2)  and  (Acct_Ites  in  (i..5]>)  or 

((Acct_Cat  »  3)  and  (Acct_Ite»  in  f 10. .131))  or 

((Acct_Cat  *  6)  and  (Acct_Itea  in  t 17. .191))  then 

vith  Disp_Acct  do 
begin 

Screen_Input(5,  6,  6) ;if  Esc  then  Exit; 
if  Acct_Cat  =  2  then 
A2QTY£ Acct_Itea3  :* 

Integer _Value ( Field_Contents( 5, 6  >  > 
else  if  Acct.Cat  «  3  then 
A3QTY£Acct  I  tea)  :« 


Integer_Value(Field_Contents(5,  6) > 
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else 


A6QTYC Acct_Ite»]  := 

Integer_Vaiue(Field_Contents<5, 6) ) 

end; 

Screen_Input<5, 7, 7) ;  if  ESC  then  Exit; 
with  Disp_Acct  do 

if  Acct_Cat  =  2  then 
A2000(Acct_Ites)  := 

Real_Value<  Field_Contents<  5, 7 ) ) 
else  if  Acct_Cat  =  3  then 
A3000(Acct_Ite»J  i= 

Real_Value( Field_Contents < 5, 7) ) 

else 

A6000£Acct_Ite»]  •.= 

Real_Value< Field_Contents ( 5, 7) ) ; 
Ledger _Record_IO< 'W',  VHon, Disp_Acct) ; 

Ledger_Record_IO( ' R ' , WHon, Disp_Acct ) 

end 


end  (  if  Node  =  2  > 
else  if  (Node  =  1)  and  (Copt  =  2)  then 
begin 

Display_Windov<5,  3) ;  gotoXY<45, 1 ) ; 
if  CurHon  <>  1  then 

write<  '01  JAN  ',<80  ♦  CurDate  diw  512>s2,  '  To  \CSDate) 
else 

writeCOl  JAN  ',<79  ♦  CurDate  diw  512)  :2,  '  To  31  DEC  ', 
<79  ♦  CurDate  diw  512) :2); 

Total_Financials;  Write_Accounts; 
repeat 

Screen_Input<5, 9,  9) ;  if  ESC  then  Exit; 

Copt  :=  Integer_Value<Field_Contents<5,  9) ) ; 
if  Not (Copt  in  (1,2])  then  Buzzer; 
if  (Copt  =  2)  and  (Printer_0K  =  0)  then 
Print_General_Ledger  <  Disp_Acct ) 
until  Copt  =  1; 

Copt  : =  7 

end 

else  if  (Node  =  1)  and  (Copt  *  4)  and  (Pr inter _0K  =  0)  then 
Print_General_Ledger <  Disp_Acct ) 
until  ESC 

end;  (  Procedure  Display_Financials  ) 
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Procedure  Display _General_Stats; 
var 

HSDate,  Test_Date  :  String9; 

Dl,  Copt,  TMon,  HMon  :  integer; 

Disp_Stats  :  General_Stats; 

procedure  Hrite_Grade; 

var 

HI,  H2,  Tot_Nr  :  integer; 

Tot_Aat  :  real ; 

begin 

Tot_Nr  :  =  0;  Tot_Amt  :  =  0.0; 

gotoXY (8, 5) ; 

for  HI  :=  1  to  2  do 

for  H2  :=  1  to  9  do  with  Disp_Stats. Grade_Stats(Hl, H23  do 
begin 

gotoXY(8,  vhereY) ; write (Oty :4> ; 
gotoXY  < 1 3, vhereY ) ; vr iteln ( Aat : 10 : 2 ) ; 

Tot_Nr  :=  Tot_Nr  ♦  Oty; 

Tot_Aat  :  =  Tot_A»t  ♦  A»t 
end; 

gotoXY  <  8, 23 ) ;  write <  Tot.Nr :  4  > ; gotoXY  < 13, 23  > ;  vr ite  < Tot_ Aat : 10 : 2 ) 
end;  (internal  procedure  Hrite_Grade  > 

procedure  Hrite_Loan_Cats; 

var 

HI,  Tot_Hr  :  integer; 

Tot_Aat  :  real ; 

begin 

Tot_Nr  :=  0;  Tot_Aat  :=  0.0; 
gotoXY ( 45, 5) ; 
for  VI  1  to  11  do 
with  Disp_Stata  do 
begin 

gotoXY <45, vhereY) ; 

write <Loan_Cats( HI 3. Oty :4 ) ;  gotoXY <50, vhereY) ; 
vriteln < Loan_Cats( Hi  3 . Aat: 10: 2) ; 

Tot_Nr  ;=  Tot_Nr  ♦  Loan_CatsCHl 3. Oty ; 

Tot_Aat  :=  Tot_Aat  ♦  Loan_CatsCWl 3. Aat; 
if  HI  *  5  then 
begin 

gotoXY  <  45,  vhereY ) ; 

write < <Loan_Cats(63.  Oty  *  Loan_Cat«(73. Oty ) :4) ; 
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gotoXY ( 50, whereY ) ; 

writeln< <Loan_Catst63. Amt  ♦  Loan_Catst71. Amt) : 10: 2) 

end 

end; 

gotoXY ( 45, 17) ;  write< Tot_Nr : 4 > ; gotoXY< 50, 17) ;  write <Tot_Amt: 10:2) 
end;  <  internal  procedure  Write_Loan_Cats  } 

procedure  Write_Duty_Stations; 

var 

Wl,  Tot_Mr  :  integer; 

Tot_Amt  :  real; 

begin 

Tot_Nr  :=  0;  Tot_Amt  :=  0.0;  gotoXY <45, 21 > ; 
for  Wl  :=  1  to  3  do  with  Disp_Stats. Duty_StationtW13  do 
begin 

gotoXY  <  45, whereY ) ; 

write <0ty :4) ;  gotoXY <50, whereY) ;  writeln< Amt : 10:2) ; 

Tot_Nr  :=  Tot_Nr  ♦  Qty; 

Tot_Amt  :=  Tot_Amt  ♦  Amt 
end; 

gotoXY <45, 24 ) ;  write<Tot_Nr:4) ;  gotoXY <50, 24) ;  write<Tot_Amt: 10:2) 
end;  (internal  procedure  Write_Duty_Station) 

procedure  Apply_Change<Chg_Cat  :  integer;  Chg_Ident  :  String3); 
var 

Al,  A2,  Quantity  :  integer; 

Amount  :  real ; 

begin 

Screen_Input<6, 6, 6) ;  if  ESC  then  Exit; 

Quantity  :=  Integer_Value<Field_Content8<6, 6) ) ; 

Screen_Input<6, 7, 7) ;  if  ESC  then  Exit; 

Amount  :=  Real_Value< Field_Contents ( 6, 7) ) ; 
if  Chg_Cat  =  3  then 
begin 

Al  :=  2; 

A2  :=  Integer_Value<copy <Chg_Ident,  3, 1 ) ) ; 
if  Chg_Identm  =  'E'  then  Al  :=  1 
else  if  Chg_IdentCl]  =  '0'  then  A2  :=  A2  ♦  4 
else  if  Chg_IdentCl]  =  'R'  then  A2  :=  9; 

Disp_Stats.  Grade_StatsC Al, A23 . Qty  :=  Quantity; 

0isp_Stats. Grade_Stats( Al, A2J . Amt  :=  Amount 

end 
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else  if  Chg_Cat  =  4  then 
begin 

A1  :=  Integer_Value<copy <Chg_Ident, 1, 2) > ; 

if  <Chg_Identf3J  =  'R'>  or  (A1  in  [7. .10])  then  A1  :=  A1  ♦  1; 
Disp_Stats.Loan_CatsfAU.0ty  :=  Quantity; 

Disp_Stats. Loan_Catsf A1 ]. Amt  :=  Amount 

end 

else 

begin 

A1  :=  Integer_Value(Chg_Identf 1 ] ) ; 

Disp_Stats. Duty_Station£Al ]. Oty  :=  Quantity; 

Disp_Stats. Duty_Station£ A1 J . Amt  :=  Amount 
end; 

Stats_Record_IO< ’V , WMon, Disp_Stats> 
end;  f  internal  procedure  Apply_Change  ) 

procedure  Total_Stats; 


Tl,  T2,  End_Hon  :  integer; 

Temp  :  General_Stats ; 

begin 

if  CurMon  =  1  then 
begin 

Stats_Record_IO< 'R' , 0, Dlsp_Stats> ;  End_Mon  :  =  12 

end 

else 

begin 

Stats_Record_IO< 'R' ,  1, Disp_Stats ) ;  End_Mon  :=  CurMon 
end; 

for  Tl  :=  2  to  End_Hon  do 
begin 

Stats_Record_IO< 'R',  Tl,  Temp) ; 

for  T2  :=  1  to  9  do  with  Disp_Stats. Grade_Statsf 1, T2J  do 
begin 

Qty  :=  Qty  *  Temp. Grade_Statsf 1, T2). Qty ; 

Amt  :=  Amt  ♦  Temp. Grade_Stats( 1, T2J . Amt 
end; 

for  T2  :=  1  to  9  do  with  Disp_Stats. Grade_Statsf 2,  T2)  do 
begin 

Qty  :=  Qty  ♦  Temp. Grade_Statsf 2, T2 ] .  Qty ; 

Amt  :=  Amt  *  Temp. Grade_StatsC2,  T2J.  Amt 
end; 

for  T2  :=  1  to  11  do  with  Disp_Stats. Loan_Catsf T2J  do 
begin 

Qty  :=  Qty  ♦  Temp. Loan_Catsf T2J .  Qty ; 

Amt  :=  Amt  ♦  Temp. Loan_Cats[T2). Amt 
end ; 


i 


for  T2  :=  1  to  3  do  with  Disp_State. Duty_Stationl T2 J  ao 
begin 

Qty  : =  Qty  ♦  Temp. Duty_StatlonCT23 . Qty ; 

Amt  :=  Amt  ♦  Temp. Duty _Station C T2 ].  Amt 

end 


end;  (  internal  Procedure  Total_Stats  } 


procedure  Print_Stats; 


PI  :  integer; 


begin 

if  Printer_OK  =  0  then 
begin 

Prepared_Screen  :=  Display_Screen ; 
Display_Window <6, 10) ; 

Reg 8. AX  :=  $0500; intr ($05, Regs) ; 
for  PI  :=  1  to  40  do  writeln(lst) 

end 

end;  (  internal  procedure  Print_Stats  ) 


begin 

WSDate  :=  CSDate;  WHon  :=  CurMon;  Copt  :=  0; 

Pr epar e_Screen  <  6 ) ; 
repeat 

if  Copt  <>  7  then 
begin 

Prepare_Screen<6) ;  Display_Screen  :=  Prepared_Screen; 
gotoXY<45, 1 ) ;clrEol;  write ( 'MONTH  OF  ' , copy ( WSDate, 4, 9 ) ) ; 
Prepared_Screen  :=  Diaplay_Screen ; 

Stats_Record_I0< 'R', WMon, Disp_Stats) ; 

Write_Grade;  Write_Loan_Cats;  Write_Duty_Stations; 
repeat 

Screen_Input <6, 1, 1 ) ;  if  ESC  then  Exit; 

Copt  :=  Integer_Value< Field_Contents<6, 1 ) ) ; 
if  Not < Copt  in  Cl.. 63)  then  Buzzer 
until  Copt  in  Cl.. 63 
end ; 

if  Copt  in  Cl, 73  then 
begin 

Copt  : =  1 ; 

Screen_Input<5, 1,  1 > ;  if  ESC  then  Exit; 

Teat_Date  :=  '  '  ♦  Pield_Contenta< 5, 1 ) ; 

Extract_Date_Data ( Test_Date, TMon, D1 > ; 

Code  :=  Date_Difference(CSDate, Test_Date> ; 


File  Naae:  AERPROCS. PAS  <cont) 


if  <Not<Code  in  (0. .11]))  or  <D1  >  CurDate)  then 
begin 

Display.Windov  <  6,  8 ) ; 

if  Key .Depressed  =  27  then  Exit 

else  Display.Screen  :=  Prepared_Screen 

end 

else 

begin 

WSDate  :=  Test.Date)  WHon  s=  TMon 

end 

end 

else  if  Copt  =  2  then 
begin 

gotoXY<45, 1 ) ; 
if  CurHon  >  1  then 

vrite<'01  JAN  ',< (Curdate  div  512)  ♦  80)  :2,  '  to  ',CSDate) 
else 

vrite<  '01  JAN  ',< (Curdate  div  512)  *■  79)  :2,  '  to 
'31  DEC  ', < (Curdate  div  512)  *  79) :2)) 

Total_Stats; 

Write.Grade)  Write.Loan.Cats)  Write.Duty.Stations) 
repeat 

Screen_Input<6, 9, 9);  if  ESC  then  Exit) 

Copt  :=  Integer. Value <Field_Contents(6r 9) ) ) 
if  Not < Copt  in  (1,21)  then  Buzzer) 
if  Copt  *  2  then  Print.Stats 
until  Copt  *  1) 

Copt  : =  7 

end 

else  if  Copt  =  3  then 
begin 

Screen_Input<6, 3, 3) ) 

Apply .Change < 3, Field_Contents< 6, 3))) If  ESC  then  Exit) 
Write.Grade 

end 

else  if  Copt  =  4  then 
begin 

Screen.Input  <6,2,2)) 

Apply_Change<4,Field_Contents<6, 2) ) )  if  Esc  then  Exit) 
Write.Loan.Cats 

end 

else  if  Copt  =  5  then 
begin 

Screen_Input<6, 4, 4) ) 

Apply_Change<5, Field_Contents<6, 4) ) )  if  ESC  then  Exit) 
Write.Duty. Stations 

end 

else  if  Copt  =  6  then  Print.Stats 
until  Copt  s  8 

end)  (  Procedure  Display.General.Stats  ) 
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File  Nase:  AERPROCS. PAS  (cont) 


Procedure  Seek_Records(Hode_Controi  :  integer); 
var 

SI,  S2,  Line,  Current_Ptr,  Nr_Loans,  Total_Tgta,  Diff  :  integer; 
PDiff,  ADiff  :  integer; 

Stat_Acct  :  byte; 

AOate,  BDate  :  string (9]; 

Ast  :  real; 

Account  :  Entire_Account; 
begin 

if  Loan_Totalsf Hode_Control J  *  0  then  exit; 

Current_Ptr  :*  1;  Total_Tgts  :  =  0;  Line  :=  1; 
if  Hode_Control  in  17. .10]  then  Stat_Acct  : =  2 
else  Stat_Acct  ;*  Hode_Control ; 
repeat 

Seek( Index_File, Current_Ptr ) ;  read< Index_File, Index ) ; 
if  Index. Name  <>  'EMPTY7  then 
begin 

Get_Account  <  SSN_Str < I ndex . SSN ) , Nr_Loans,  Account ) ; 
if  Stats_Code(Stat_Acct ]  <>  0  then 
for  SI  :*  1  to  Nr_Loans  do 

with  Account (Rec_PosC SI ]]. Loan_Data  do 
begin 

if  Hode_Control  in  (7. .10]  then 
begin 

Split_Date_and_Honey <  Balance_Inf o, 

BDate, Ast ) ; 

Split_Date_and_Honey ( Allot_Info, 

Adate, Ast ) ; 

PDiff  :*  Date_Difference<CSDate, BDate) ; 
ADiff  :*  Date_Difference(CSDate,  ADate) ; 
if  PDiff  >  ADiff  then  Diff  :*  ADiff 
else  Diff  :*  PDiff; 
if  Diff  >  4  then  Diff  :*  4 

end 

else  Diff  :*  0; 

if  <<Stat_Acct  *  Acct_Status>  and  (Diff  =  0))  or 
( ( Acct_Status  *  2)  and  (Diff  in  (1..41))  then 
begin 

Total_Tgts  :*  Total_Tgts  ♦  1; 
if  Line  ■  1  then 
begin 

Pr int_Header ( Hode_Control ) ; 

Line  :*  6 
end; 

Pr int_Report ( Si ,  Account ) ; 

Line  :*  Line  *  1; 


File  Name:  AERPROCS. PAS  (cont) 

if  Line  =  60  then 
begin 

for  S2  :=  1  to  7  do 
writeln(lst) ; 

Line  : =  1 

end 

end 

end  (with  AccounttSl]  do) 
end;  (if  Index. Naae  <>  'EMPTY' ) 

Current_Ptr  •.=  Current_Ptr  *  1 

until  (Total_TgtssLoan_Totals[Hode_Control J >  or  (Current_Ptr=5001 
if  Line  >  1  then 

while  Line  <  67  do 
begin 

writeln(lst) ; 

Line  :  «  Line  ♦  1 

end 

end;  (  Procedure  Seek_Records  ) 


File  Naae:  OVERLAYS. OVR 
Overlay  procedure  Close_Filea; 
begin 

close< Index_File) ; 
close < Loan_File) ; 
close(Stats_File) ; 
close ( Accounts_File) 
end;  (  procedure  Close_Files  > 

Overlay  Procedure  Load_Display_Screens_into_Me»ory ; 
var 

ForaFile  :  file  of  Screen_Data; 

Windows  :  text; 

LI,  L2,  L3  :  integer; 

Screen.Ident  :  string [21; 

File_Mase  :  string! 141; 

begin 

if  ESC  then  Exit; 

Assign (ForaFile, 'FORMS. DTA' > ;  reset ( ForaFile ) ;  LI  :=  0; 
while  not  EOF (ForaFile)  do 
begin 

seek (ForaFile, LI ) ; 

LI  LI  *  1;  read (ForaFile,  Screen CL1 J ) 


close (ForwFile) ; 
for  L2  :=  1  to  LI  do 
begin 

i f  Screen l L2). Field_PositsC 160)  *  1  then 
begin 

Str  <  L2, Screen_Ident ) ; 

File_Nase  :*  'WINDOW'  *  Screen_Ident  *  ' . DTA' ; 
assign ( Windows,  File_Na»e> ;  reset < Windows ) ;  L3  : =  1; 
while  not  eof< Windows)  do 
begin 

readln< Windows, Window_Contents(L2, L3J  > ; 

L3  :*  L3  ♦  1 
end; 

close< Windows) 
end; 

end 

end;  (  Procedure  Load_Display_Screens_inta_He*ory  ) 


Overlay  Procedure  UpDate_Loans; 


var 


Ul,  U2,  U3,  Nr_Accounts_Read,  Nr_Recs  :  integer; 
Temp_Real  :  real ; 

Temp_Status  :  byte; 

Diskette_In_Drive  :  boolean; 


0); 


begin 

Assign < Index_File, Index_Aer); 

Prepared_Screen  :=  Display_Screen; 
repeat 

($1-)  reset <  Index_File)  {$!♦•); 

Diskette_In_Drive  :=  < IOResult  ! 
if  Not(Diskette_In_Drive)  then 
begin 

ClrScr;  gotoXY < 17, 10) ; 

write('I  cannot  sees  to  find  the  *B:  Drive  Diskette.'); 
gotoXY  < 10, 12) ; 

write< 'Please  verify  that  the  *B:  Drive*  diskette  is  in 
'the  B  Drive.  '); 
gotoXY (15, 15) ; 

write< 'Press  any  key  when  the  problem  has  been  corrected 


repeat 

until  KeyPressed 


end 


until  Diskette_In_Drive; 

Display _Screen  :=  Prepared_Screen ; 

Assign < Loan_File,  Loans_AER);  reset ( Loan_File ) ; 

Assign < Stats_File, GrdStats_AER ) ;  reset <Stats_File> ; 

Assign <  Accounts_File, Accounts_AER) ;  reset (Accounts_File) ; 
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read ( Index_File, Index_Stats ) ; 
read ( Loan_File,  Loan_Stats) ; 

Nr_Recs  :=  Loan_Stats. Prev_Record; 

Print_0n  :=  True;  Correcting  :=  False; 

Prepare_Screen ( 3 ) ;  Display_Screen  :=  Prepared_Screen; 
repeat 

Screen_Input ( 3,  2, 2 ) ;  if  ESC  then  Exit; 

CSDate  :=  Field_Contents< 3, 2) 
until  length (CSDate)  =  9; 

Extr act_Date_Data  <  CSDate, Cur Hon, CurDate ) ; 

Regs.  AX  :=  92B00;  Regs.  CX  :=  1900  ♦  Integer_Value(copy (CSDate,  a,  2) ) ; 
Regs.DX  CurMon*100  *  integer_Vaiue< copy (CSDate, 1, 2) ) ; 
intr (921, Regs) ; 

I  :=  Printer_0K; 

ESC  :=  False; 

Textbackground( White) ;textcolor (Red ♦Blink) ; 
gotoXY(3, 2) ;vrite( 'Working  1 ' ) ; 

Textbackground ( blue ) ;  Textcolor ( white ) ; 

FillChar (Loan_Totals,  22,  0) ; 

Boot_llp  :=  True; 

U1  :=  0;  Nr_Accounts_Read  s=  0; 
repeat 

U1  :*  U1  ♦  1; 

seek(Loan_File, U1 ) ;  read(Loan_File, Loan) ; 
with  Loan  do 

if  Acct_Status  <>  *FF  then 
begin 

Nr_Accounts_Read  ;=  Hr_Accounts_Read  *  1; 

Temp_Status  :=  Hev_Status( 'A', Loan) ; 

if  (Acct_Status  =  4)  and  (Te*p_Status  =  $FF)  then 
begin 

if  (Prev_Record  <  0)  and  <Mext_Record  -  0)  then 
begin 

seek( Index_File, abs(Prev_Record ) ) ; 
read ( Index_File,  Index ) ; 

Delete_ Account ( abs<Prev_Record ) ) 

end 

else  Delete_Loan  <  U1 , U3 ) 

end 

else  if  Acct_Status  <>  Te*p_Status  then 
begin 

Acct_Status  :=  Te»p_Status; 
seek  <  Loan_File,  U1 ) ; 
write <Loan_File,  Loan) 

end 

end  (if  Acct_Status  <>  «FF) 
until  (U1  *  5000)  or  (Nr_Accounts_Read  -  Nr_Recs); 

Boot_Up  s*  False; 
gotoXY(3,  2);  write( '  ') 

end;  (  Procedure  UpDate  Loans  ) 
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Overlay  Procedure  Viev.Change.or .Delete; 


const 

Header  :  array(1..81  of  String[20]  =  ('  View  an  Account', 

'  Record  Chapter  13', 
'Record  Uncollectible', 
'Record  Transfer -Out', 
'Delete  Paid  Off  Loan', 
'Delete  Transfer -Out', 
'Delete  Uncollectible', 
'Correct  Loan/Account'); 

Descr  :  array (6.  .7]  of  string (141  = 

( 'Uncollectible. ', 'Transfer -Out 


var 

Account  :  Entire_Account ; 

Index_Hold  :  Identification_Record; 

File_Key  s  string [251; 

Fid,  SI,  S2,  S3,  S4,  NDX,  Action, 

NrLoans,  LoanNr,  Percent,  WHon  :  integer; 

Strln  :  string(3]; 

UncDate  :  String9; 

InReal  :  real; 

Key_Hit  :  byte; 

begin 

if  ESC  then  Exit; 

Key_Hit  :=  1; 
repeat 

Prepare_Screen<2) ;  Display .Screen  :=  Prepered.Screen ; 
if  Key .Hit  <>  13  then 
begin 

repeat 

Screen. Input < 2, 8, 8) ;  if  ESC  then  Exit; 

Fid  :=  Integer_Value(Fleld_Contents(2,  8) ) ; 
if  Not  <Fld  in  tl,2J>  then  Buzzer 
until  Fid  in  C 1 , 23 ; 

Fill_Field<2,  8,  '  '); 

repeat 

Screen_Input< 2, 9, 9) ;  if  ESC  then  Exit; 

Action  :*  Integer_Value( Field_Contents< 2,  9) > ; 
if  Not  < Action  in  C1..8J)  then  Buzzer 
until  Action  in  Cl.. 8}; 

Fill_Field<2,  9,  '  ') 
end ; 

gotoXY<60, 2) ;  vrite< Header [Action] > ; 

Screen_Input<2, 3-Fld, 3-Fld> ;  if  ESC  then  Exit; 

File.Key  *. *  Field_Contents( 2,  3-Fld ) ; 

Get  Account < File  Key, NrLoans, Account ) ; 


File  Nana:  OVERLAYS. OVR  <cont) 


if  NrLoans  <>  0  than 
bag  in 

Diaplay_Account_Idant<2> ;  Diaplay_Loana(2,  10, 1, Account ) ; 
if  Not (Action  in  (1,81)  than 
bag  in 

rapaat 

LoanNr  :=  0; 

Scraan_Input < 2, 6, 6) ;  if  ESC  than  Exit; 

StrZn  :*  Fiald_Contanta<2, 6) ; 
if  Strln  <>  'ALL'  than 
bag  in 

LoanNr  :  =  Intagar_Valua<StrIn) ; 
if  Not < LoanNr  in  (1..151)  than 
bag  in 

Buzzar ;  LoanNr  : *  0 

and 

alaa  if  Account ( LoanNr 1 . Rac_Loc  *  0  than 
bag  in 

Buzzar;  LoanNr  :»  0 

and 

and 

until  (Strln  *  'ALL')  or  (LoanNr  <>  0); 
if  NrLoana  *  x  than  Strln  :»  'ALL'; 
if  Strln  «  'ALL'  than 
bag  in 

SI  *.s  1;  LoanNr  :»  0 

and 

alaa 

bag  in 

SI  :»  0; 

rapaat 

SI  :»  SI  *1 

until  Rac_Poa(SU  *  LoanNr 
and ; 

Fill_Fiald(2,  6,  '  ') 

and;  (  if  Action  <>  1  ) 
if  Action  *  2  than  (racord  ch-13  ) 
bag  in 

rapaat 

Scraan_Input (2, 5, 5) ;  if  ESC  than  Exit; 

Parcant  :*  Intagar_Valua( Fiald_Contanta( 2,  5) ) 
until  Parcant  in  (0. .1001; 

Fill_Fiald(2,  5,  '  '); 

rapaat 

with  Account (Rac_Poa( SI ) 1.  Loan_Data  do 
bagin 

S4  :*  Nav_Statua( 'D', 

Account (Rac_Poa( SI  1 1.  Loan_0ata) 
Acct_Statua  :*  1; 


S4  :3  New_Statua< 'A', 

Account tRec_Poat SI 1 J . Loan_Data ) ; 
Repay_Nethod  : 3  Percent 
end; 

Diaplay_Loana! 2, 10, 1,  Account ) ; 

SI  :»  si  ♦  1 

until  !Rec_PoafSll  *  0)  or  <Rec_PoatSl-l 1  *  LoanNr); 
end  <  if  Action  3  2  ) 

elae  if  Action  3  3  then  (  record  uncollectible) 

repeat 

S4  :*  New_Statua! 'D', Account CRec_PoaC SI ) 1. Loan_Data > ; 
Account (Rec_Poaf SI 1 J. Loan.Data.  Acct_Statua  :«  3; 
Dlaplay_Loana! 2, 10, 1, Account) ; 

S4  s *  New_Statua< 'A',  Account t Rec_Poat SI ) 1. Loan_Data) ; 
SI  :«  SI  *  1 

until  !Rec_PoatSll  3  0)  or  <Rec_Poa[Sl-l]  2  LoanNr) 
elae  if  Action  3  4  then  (  record  tranafer-out) 

repeat 

S4  :«  New_Statua! 'D' , Account [Rec_PoaC SI )). Loan_Data ) ; 
Account! Rec.Poaf Si l).Loen_Data.Acct_Statua  s*  6; 
01aplay_Loana<2, 10, 1, Account) ; 

S4  :«  New _Statua( 'A', Account (Rec_Poa( Sill. Loan_Data) ; 
SI  t*  SI  ♦  1 

until  (Rec_Poa(Sll  3  0)  or  (Rec_PoatSl-ll  3  LoanNr) 
elae  if  Action  in  CS. .7]  then 
begin 

if  Action  3  S  then  N0X  :«  4 
elae  if  Action  3  6  then  NDX  :«  3 
elae  NDX  :3  6; 
gotoXY  < 1, 21 ) ; 

if  (Strln* ' ALL' )  and  (NrLoana  <>  Stata.CodeCNDXl )  then 
Write! 'Sorry,  I  can  only  delete  accounta  vhen  ', 
'ALL  loana  are  declared  ', Deacrf Action 1 ) 

elae 

if  < Account IRec_Poa[ SI J J. Loan _ Data. Acct_Statua<>NDX)  then 
write! 'Sorry,  Loan  ', Rec_PoaCSl) :2, 

'  haa  not  yet  been  declared  ', Deacrf Action J, 

'  1  cannot  delete  it. ' ) 

elae 

begin 

if  Action  in  (6,71  then 
begin 

gotoXY! 1,22); 
if  Strln  3  'ALL'  then 

write! 'Date  Account  Approved  ', 

Deacr  C  Action ) > 

elae 

write! 'Date  Loan  ', Rec_PoaCSl 1 :2, 

'  Approved  ', Deacrf Action) ) ; 


File  Name:  OVERLAYS. OVR  (cont) 


«; 


Screen_Input<4, 52, 52) ;  if  ESC  then  Exit; 
UncDate  : =  Field_Contents<4, 52) ; 
Extract_Date_Data <  UncDate, WHon, Code  > ; 

S2  :=  SI; 

repeat 

with  Account ( Rec_Pos ( S2 ]]. Loan_Data  do 
Split_Date_and_Honey <  Balance_Info, 

Date, InReal ) 

Ledger <6, 25-Action,  tfmon,  InReal ) ; 

S2  •.=  S2  *  1 


until 


end ; 


(Rec_PoaCS2)  =  0)  or 

(Rec  Po«tS2-lJ 


LoanNr ) 


if  Strln  =  'ALL*  then 

Delete_Account<FilePos< Index_File)  -  1) 
else  Delete_Loan<  Account [LoanNr 1. Rec_Loc,  Code) ; 
Get_Account(File_Key,  NrLoans, Account) ; 
Prepare^Screen  <  2 ) ; 

Oisplay_Screen  : =  Prepared_Screen; 
gotoXY(60, 2) ;  write< Header [Action] ) ; 
if  NrLoans  <>  0  then 
begin 

Display_Account_Ident(2) ; 

Display_Loans(2, 10, 1, Account) 
end; 

gotoXY  <  5, 21); 
if  Strln  =  'ALL'  then 

write< 'Account  ',File_Key, 

'  has  been  removed  fros  ay  memory. ' ) 

else 

write<'Loan  Nr  ', LoanNr: 2, 

'  has  been  removed  from  my  memory. ' > 


end 


end 

else  if  Action  =  8  then 
begin 

KBSB  :=  KBSB  and  9DF; 

gotoXY <6, 22);  write (chr( 24) ) ;  gotoXY ( 1, 23) ; 
write ( 'Use  *,chr(27),'  ',chr<26>, 

'  keys  to  select  item  to  correct. ' ) ; 
gotoXY <6, 24) ;  write<chr<25) ) ;  Correcting  :=  True; 
Prepared_Screen  :=  Display_Screen; 
repeat 

S2  : =  Key_Depressed; 

until  < hi (Regs. AX)  in  [72,75,77,80])  or  <ESC>; 
if  ESC  then  Exit; 

SI  :*  1; 

repeat 

Scan_Code  : =  0; 
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Screen_Input( 2, SI, SI ) ;  If  ESC  then  Exit; 
if  <<Scan_Code  =  72)  and  (vhereY  =  2))  or 
<<Scan_Code  =  75)  and  (vhereX  <  0))  or 
((Scan_Code  =  77)  and  (vhereX  in  (30,51)))  or 
((Scan_Code  =  00)  and  <S1  >  NrLoans»7  *  3)>  then 
begin 

Buzzer ; 

Display _Screen  :=  Prepared_Screen 

end 

else  if  Scan_Code  in  (72,75,77,001  then 
begin 

Display_Screen  :=  Prepared_Screen ; 
if  <Scan_Code  =  72)  and  (SI  >  15)  then 
SI  :=  SI  -  7 

else  if  Scan_Code  =  72  then  Si  :=  1 
else  if  (Scan_Code  =  00)  and  (SI  >  10)  then 
SI  :=  SI  *7 

else  if  Scan_Code  =  00  then  SI  :=  11 
else  if  Scan_Code  =  75  then  SI  i*  SI  -  1 
else  SI  :=  SI  ♦  1 
end; 

until  Not (Scan_Code  in  (72,75,77,001); 
if  SI  <  5  then 
begin 

Index_Hold  :=  Index; 

Index.Hold. Naae  : *  Field_Contents( 2, 1 ) ; 
Index.Hold. SSN 

Real_Value(Field_Contents(2, 2) ) ; 
Strln  :=  Field_Contenta(2, 3) ; 

UncDate  :=  Field_Contents(2, 4) ; 
vith  Index_Hold  do 

Grade_and_Statua  : = 

Encode_Grade_and_Status( Strln,  (JncDate(  1 1 ) ; 
Delete_Account(FilePos(Index_File>  -  1); 

Index  :=  Index_Hold; 
for  S2  : *  1  to  NrLoans  do 
begin 

Loan  :=  Account (Rec_Pos(S21 1. LoanData; 
Write_Index_Record ; 

S3  Nev_Status( 'A', Loan) 

end 

end 

else  eith  Account (Rec_Pos( (SI -2)  div  7) 1. Loan_Data  do 
begin 

52  :=  (SI -2)  aod  7; 

S4  :=  Acct_Status; 

53  s=  New_itatus( 'D', 

Account(Rec  Poa((Sl-2)  div  71 1. Loan_Data) ; 


File  Nase:  OVERLAYS. OVR  (cont) 


if  S2  =  2  then 

Split_Date_and_Money <Loan_Info, UncDate, InReal ) 
else  if  S2  =3  then 

Split_Date_and_Money <  Balance_Info,  UncDate, 

InReal ) 

else  if  S2  =  4  then 
begin 

Strln  :=  Field_Contents<2, Si ) ; 
if  StrlnCil  =  'A'  then 
begin 

Repay _Method  :=  0; 

S4  :*~0 

end 

else  if  Strlnti]  =  •P’  then 
begin 

Repay_Hethod  : =  980; 

S4  :  =  0 

end 

end 

else  if  S2  =  5  then 

Split_Date_and_Honey  ( Allot_Inf  o,  (JncOate, 

InReal ) 

else  if  S2  =  6  then 
begin 

Split_Date_and_Honey ( Balance_Info, UncDate, 

InReal > ; 

UncDate  : *  Field_Contents ( 2, SI ) ; 
Balance_lnfo  : = 

Herge_Date_and_Noney < UncDate, InReal ) 

end; 

if  S2  in  12,3,53  then 
begin 

InReal  :s  Real_Value< Field_Contents< 2, SI ) ) ; 
if  S2  =  2  then 
Loan_Info  s* 

Merge_Date_and_Woney < UncDate, Inreal > 
else  if  S2  =  3  then 
begin 

if  InReel  >0.0  then  S4  :=  4 
else  if  (Inreal  >  0.0)  and 

<S4  =  4)  then 


S4  :*  0; 

Balance_Info  : - 

Kerge_Date_and_Money< UncDate, Inreal ) 

end 

else 

Allot_Info  :* 

Merge_Date_and_Honey ( UncDate, Inreal > 

end ; 
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File  Name:  OVERLAYS- OVR  <cont> 


Acct_Status  :=  S4; 

Acct_Statua  :=  Nev_Status< 'A', 

Account C Rec_Pos( < SI -2)  div  7] ]. Loan_Data) ; 
seek  <  Loan_File, 

Account C Rec_Pos C < SI -2 >  div  7 ] ] . Rec.Loc > ; 
vrite<  Loan.File, 

Account [Rec_PosC < SI -2)  div  7] 3. Loan_Data> ; 
flush  <  Loan_File > 
end; 

Get_Account <SSN_Str ( Index. SSN) ,  NrLoans,  Account ) ; 
Display _Account_Ident(2> ; 

Display _Loans<2, 10, 1,  Account) ; 
gotoXY< 1, 22) ;  ClrEol;  gotoXY< 1, 23) ; 

ClrEol;  gotoXY < 1, 24) ; 

ClrEol;  Correcting  :  =  False; 

KBSB  :=  KBSB  or  $20 
end;  {  if  Action  *  8  ) 

SI  :=  0; 

if  Action  in  12. .41  then 

repeat 

SI  :=  SI  ♦  1; 

seek ( Loan.File, Account [RecPost SI J ] . Rec_Loc ) ; 
vrite<  Loan.File, Account CRec_PosC SI  1 ] .  Loan_Data ) 
until  Rec_PoB(Sl*l J  *  0 
end  (  if  NrLoans  <>  0  > 
else 

begin 

gotoXY ( 14, 21 ) ; 

vrite< 'Sorry,  I  do  not  appear  to  have  the  ', 

'requested  account.') 

end; 

gotoXY (5,  23); 

vrite<'Press  ', chr< 17), '— 1  to  continue  the  same  operation  (', 
Header (Action],  ').'); 
gotoXY <5, 25); 

vrite< 'Press  any  other  key  to  select  another  operation  ', 

' (ESC  to  Exit).  ' ) ; 

Key.Hit  Key  .Depressed; 

until  Key.Hit  =  27 

end;  (  Procedure  Viev_Change_or_Delete  ) 


sy-;v* 


APPENDIX  C 

APPLICATION  PROGRAM  DISPLAY 
SCREEN  DESIGN  SOURCE  CODE 


The  following,  undocumented,  application  program  source 
code  is  written  in  Borland  International,  Inc. ,  Turbo 
Pascal7",  version  3.0. 

The  reader  is  cautioned  that  computer  programs  developed 
in  this  research  may  not  have  been  exercised  for  all  cases 
of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  ensure  that  the  programs  are  free  of 
computational  and  logic  errors,  they  cannot  be  considered 
validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 


File  Name:  FORHDRAW. PAS 


type 

scrnline  =  array  Cl. . 160]  of  byte; 

Scrnarray  =  array  Cl.. 253  of  scrnline; 
Screen_Data  =  record 

Screen_Image  :  Scrnarray; 

Field_Posits  :  ScrnLine; 

Window_Info  :  ScrnLine 
end;  (record  Screen_Data) 

StringflO  =  stringCSO]; 

CPU_Registers  =  record 

AX,  BX,  CX,  DX,  BP,  SI,  DI,  DS,  ES,  Flags  :  integer 
end ; 


var 

Regs  :  CPU_Registers; 

Screen  :  Screen_Data ; 

Window_Data  :  array f 1. . 25, 1. . 253  of  String80; 

Temp_String  :  StringflO; 

Temp_Window_Info  :  scrnline; 

scrn  :  scrnarray  absolute  9B600: 90000;  (9B000  for  monochrome) 
Formfile  ;  file  of  Screen_Data; 

Windows  :  Text; 

I,  II,  12,  J,  K,  L  :  integer; 

Diff ,  Display_Hemory,  Lines_of _Windows,  scrnr, Nr_of_Screens 

integer;  Entry  _Pt,  Width,  Xpoa,  Ypos,  Last  *.  byte; 

Opt  :  char; 

Delete,  Change,  New_Screen,  Screen_Mode  :  boolean; 
scrnr_8tr  :  stringC23; 

Procedure  Screen_Draw<Hode  :  boolean); 

var 

Fore,  Back  :  byte; 

Attribute_0nly  :  boolean; 

begin 

Fore  :=  90F;  Back  :=  900;  PortWC903DflJ  :=  909; 

Attribute_Only  :*  False; 
repeat 

I  : *  whereX;  J  :=  WhereY;  Regs. AX  : =  90000;  intr <916,  regs) ; 
with  regs  do 

if  lo<AX>  in  [16, 17, 32. . 255J  then 
begin 

if  not  Attribute_Qnly  then  scrnt J, 2*1-1 ]  :=  lo<AX); 
scrnCJ, 2*13  :=  Back  or  Fore; 

I  i=I*l; 

Last  :s  lo(AX) 

end 
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File  Name:  FORNDRAW. PAS  (cont) 


else  if  lo(AX)  =  1  then 
begin 

if  Attribute_Only  then  Attribute_Only  : =  False 
else  Attribute_Only  :=  True 


end 

else  if  lo(AX)  =  2  then 
begin 

for  J  :=  1  to  25  do 
for  I  :=  1  to  80  do 

scrn fJ, 1*2]  :=  (ScrnCJ, 1*2]  and  90F)  or  Back; 

J  :=  1;  I  :=  1; 
gotoXYd,  J) 

end 

else  if  (lo(AX)  =  19)  and  (Change)  and  (Node)  then 
begin 

Screen. Field_Positsf II J  :=  2»vhereX  -  1; 

Screen. Field_PositsCIl ♦! 1  :=  vhereY  j 
II  :=  II  ♦  2 

end 

else  if  (lo(AX)  =  19)  and  (Change)  and  (not  (Mode))  then 
begin 

Screen. Windov_Info( Ill  :*  vhereX; 

Screen.  Windav_Infot  II  «-lJ  :  =  vhereY 

end 

else  if  (lo(AX)  2  5)  and  (Change)  and  (Node)  then 
begin 

vith  Screen  do 

Field_PositsCIl J  : =  2*vhereX  -  Field_Positst II -21 ; 
II  :  =  I1  *~1 

end 

else  if  (lo(AX)  2  5)  and  (Change)  and  (not  (Node))  then 
begin 

vith  Screen  do 

Windov_InfoC I1*2J  :=  J  -  Windov_InfoC II »1 ]  ♦  1; 
vidth  : 2  vhereX 

end 

else  if  (lo (AX)  2  4)  and  (Change)  and  (  not  (mode))  then 
vith  Screen  do 
begin 

Windov_Info[Il J  :=  0; 

Windov'lnfoC II +1 1  :2  0; 

Windov_InfoCIl«-21  :=  0; 

Windov_InfoC  II  «-31  :=  0; 

Delete  :=  True; 

Exit 

end 
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File  Name*.  FORHDRAV.  PAS  (cont) 


else  if  (lo(AX)  -  3)  and  (Change)  and  (Mode)  then 
begin 

with  Screen  do 

Field_PositsC II J  := 

•SO  or  (2»vhereX  -  Field_Positst II 

II  :=  II  *  1 


end 


else 

if 

(hi (AX) 

3  72) 

and 

( J 

<> 

1) 

then  J  : 3  J  - 

1 

else 

if 

(hi (AX) 

3  80) 

and 

( J 

<> 

25) 

then  J  :3  J 

♦  1 

a 

a 

a 

if 

(hi (AX) 

3  75) 

and 

(I 

<> 

1) 

then  I  :3  I  - 

1 

else 

if 

(hi (AX) 

3  77) 

and 

(I 

<> 

80) 

then  I  : =  I 

*  1 

else  if  hi (AX)  =  71  then 
begin 

I  :=  1; 

J  :=  1 

end 


else  if  hi (AX)  3  79  then  I  :=  SO 

else  if  hi (AX)  3  73  then  J  : 3  1 

else  if  hi (AX)  =  81  then  J  :»  25 

else  if  (hi (AX)  3  28)  then  I  :*  1 

else  if  hi (AX)  3  14  then 


begin 

scrnt J, 2*1-1 1  :*  *20} 
I  :=  I  -  1 


end 


else  if  hi (AX)  -  94  then 


begin 

if  Not  Attribute.Only  then  scrnCJ,  2*1-1 1 
scrntJ, 2*11  :*  Back  or  Fore; 

I  :«  I  ♦  1 


end 


else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

else 

if 

hi 

(AX) 

3  59  then  Back 
3  60  then  Back 
3  61  then  Back 
3  62  then  Back 
3  63  then  Back 
3  64  then  Back 
3  65  then  Back 
3  66  then  Back 
3  104  then  Fore 
3  105  then  Fore 
3  106  then  Fore 
3  107  then  Fore 

108  then  Fore 

109  then  Fore 

110  then  Fore 

111  then  Fore 

112  then  Fore 


3  «00 
3  *10 
3  «20 
3  *30 
3  *40 
3  *50 
3  *60 
3  *70 
: 3  *00 
: 3  *01 
: 3  *02 
:3  *03 
s3  *04 
: 3  *05 
s 3  *06 
: 3  *07 

:•  Fore  and  *07 


: 3  Last ; 


File  Naae:  FORHDRAW. PAS  <cont) 


else  if  hi (AX)  =  113  then  Fore  :=  Fore  or  $08 
else  if  hi (AX)  3  67  then  Back  :=  Back  and  $70 
else  if  hi (AX)  =  68  then  Back  :=  Back  or  $80 
else  if  hi (AX)  3  96  then 
begin 

J  : 3  J  ♦  1 ; 
gotoXY(I-l, J) ; 

if  Mot  Attribute_Qnly  then  scrnC J, 2*1 -1 J  :=  Last; 
scrnCJ,2*I]  :=  Back  or  Fore 
end; 

gotoXY(I, J) 

until  lo(Regs.AX)  3  27 
end;  (  Internal  Procedure  Screen_Drav  > 

procedure  Display_Vindov(Xcoord, Ycoord:byte;DisplayString  :  StringSO); 
var 

X, Y,  Offset  :  Integer; 


begin 

X  s3  Xcoord;  Y  :3  Ycoord; 

Offset  :3  (Y  -  1)*160  ♦  2*(X  -  1) 
inline( 

$50/$51 /$57/$56/$06/$9C/ 

$B8/$00/$B8/ 

$50/ 

$07/ 

$8B/$BE/0ff set/ 

$80/$B6/DisplayString/ 

$31/$C9/ 

$36/ 

$8A/$0C/ 

$46/ 

$FC/ 

$36/$A4/ 

$E2/$FC/ 

$9D/$07/$5E/$5F/$59/$58 ) 

end;  ( 


(PUSH  AX, CX, 01, SI, ES, Flags) 

(MOV  AX,  B800  > 

(PUSH  AX) 

(POP  ES) 

(HOV  DI, CBP*OffsetJ) 

(LEA  SI, [BP*DlsplayString) ) 
(XOR  CX,CX) 

(SS: ) 

(MOV  CL, CSIJ) 

(INC  SI) 

(CLD) 

(Lis  SSsHOVSB) 

(LOOP  LI) 

(POP  Flags,  ES,  SI,  DI, CX, AX) 


Internal  Procedure  Oisplay.Windov  ) 


begin  (  Main  Prograa  ) 

assign (ForaFile, 'FORMS. DTA' ) ;  Nee_Screen  :=  False; 

($1-)  reset (ForsFile)  ($1*); 
if  IOresult  <>  0  then 
begin 

rewrite (ForsFile) ;  FillChar (Screen. Field_Posits,  160,0) ; 
FillChar ( Screen. Vindov_Info, 160, 0) ;scrnr  s*  1 


File  Name:  FORHDRAW. PAS  (cont) 


else 

begin 

clrscr; 

Nr_of_Screens  i=  FileSize< ForaFile) ; 

writeln( 'Number  of  Screens  in  FORMS. DTAs  Nr_of .Screens) ; 
write ( 'Screen,  Window  or  Quit  (S,  W  or  Q)  ' ) ; readln (opt ) ; 
if  opt  in  f  'q',  '0']  then 
begin 

close<Foraf ile) ;exit 
end; 

if  opt  in  ['S', 's']  then  Screen_Mode  :=  True 
else  Screen_Hode  : =  False; 

write < 'Screen  #  to  bring  up  ' ) ; readln (scrnr ) ; 
if  (scrnr  >  Nr_of _Screens)  and  (Screen_Hode>  then 
begin 

writeln('New  Screen.  Screen  number  is  ', 

Nr_of _Screens  ♦  1 ) ; 

scrnr  : =  Hr _of .Screens  *  l;New_Screen  : =  True 

end 

else 

if  (scrnr  >  Hr_of_Screens)  and  (not  ( Screen_Hode ) )  then 
exit; 

if  Not  New_Screen  then 
begin 

write* 'Change  control  settings?  ' > ; read (opt) ; 
if  (opt  *  'y')  or  (opt  *  'Y')  then  Change  :=  True 
else  Change  False; 
clrscr; 

seek (ForaFile, scrnr -1 > ; 
read ( ForaFile,  Screen  > ; 
if  (Change)  and  (Screen_Mode>  then 
FillChar (Screen. Field_Posits, 160, 0) 

end 

else  FillChar (Screen, 4000, 0) ; 
end; 

Scrn  : =  Screen. Screen_Iaage; 
if  Screen.Hode  then 
begin 

II  :=  1;  gotoXY (1,1);  Screen_Draw (Screen_Mode) ; 

Screen. Screen. Image  : =  Scrn 

end 

else 

begin 

for  I:>  1  to  2S  do 
for  J  :>  1  to  20  do 
WindowDataC I, J] s =  'Empty'; 

J  :*  1; 

Str ( scrnr, scrnr.str ) ; 
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Temp.String  :=  'Window'  *  scrnr_str  *■  '.DTA'; 
assign <  Windows, Temp.String ) ; 

(9I-)  reset  (Windows)  (SI*-); 
if  IOresult  <>  0  then 
begin 

rewrite< Windows) ;FillChar< Screen. Window_Info,  160,  0) 

end 

else  while  not  eof< Windows)  do 
begin 

if  Screen. Window_Info[J*4-ll  <>  0  then 

for  Is=  1  to  Screen. Window.InfoC J*4-l 1  do 
readln< Windows,  Window.DataC  J,  ID; 

J  :=  J  ♦  1 
end; 
repeat 

Delete  :=  False; 

scrn  :=  Screen. Screen. Image; 

gotoXY ( 1 ,  25 ) ;  write< 'Window  Number  7  (0  to  exit)  '); 

read  (ID ; 
if  II  <>  0  then 
begin 

12  :=  II;  II  :*  11*4  -  3;  gotoXY (20, 12) ; 
Temp_Window_Info  :=  Screen.  Window. Info; 
if  Screen. Window.InfoC Ill  <>  0  then 

for  I  1  to  Screen. Window.InfoC II *21  do 
with  Screen  do 

Display.Window ( Window. Inf ot Ill, 

Window.InfoC  ID1 )  <-1-1, 
Window.Data  C 12,  ID; 

Screen.Draw(Screen.Hode) ; 
if  Not (Delete)  then 
begin 

Window.DataC  12, 1 1  :=  ";  K  :=  1; 

I  :=  Screen.  Window. Info( 12*4-21 ; 
repeat 

Window.Data  CI2,  XI  :=  "; 

J  : =  (Screen. Window. InfotI2*4-31  shl  1)  - 
L  :=  J; 


repeat 

Window.DataC 12, K1  :=  Window.DataC 12, K1 

chr(scrnCI,  JD  * 
char(scrnCI,  Dll ) 

J  s  =  J  ♦  2 


until  ( scrnC I, J-21  in  [166,167,1661)  and 
(J-2  >  L); 

I  :  *  I  *  1 ; 

K  :  =  K  ♦  1 

until  scrnC 1-1, J-21  *  166; 


Pile  Naae :  FORHDRAW. PAS  <cont) 


Screen. Window_InfoC4*I2-lJ  : =  K  -  1 

end 

end; 

Entry_Pt  :=  1; 

for  I  j*  1  to  40  do  with  screen  do 
if  Window_Infof4*I -1 ]  <>  0  then 
begin 

Window_InfoC4*I J  :s  Entry_Pt; 

Entry_Pt  :*  Window_InfoC4*I-ll  ♦  Window_InfoC4*I ) 

end 

until  II  >  0 
end; 
clrscr ; 

vrite( 'Save  to  File  ?  !Y/M> 
reed <  Opt ) ; 

if  <Not  (Screen.Hode) )  and  <upca«e(0pt)  *  'Y')  then 
begin 

rewrite<  Windows) ; 
for  I  :«  1  to  25  do 

if  Screen. Window_Infof4*I-l 1  <>  0  then 

for  J  s*  1  to  Screen. Window_Infof 4*1-1 J  do 
writeln< Windows, WindowDataC I, J] ) ; 
close! Windows) ; 

Screen. Field_Posits( 1601  :*  1 
end; 

if  upcase<0pt )  *  'Y'  then 
begin 

if  Hew_Screen  then 

Seek<ForsFile, FileSize<ForsFile) ) 
else 

8eek<ForsFile, scrnr-i > ; 
write! forafile, Screen) 
end; 


clo8e!ForsFile) ; 
clrscr 

end.  !  Main  Program  ) 


2 


LIST  OF  REFERENCES 


1.  Coombs,  M.  J.  and  Alty,  J.  L.  (Eds),  Computing  Skills 

and  the  User  Interface.  Academic  Press,  Inc. ,  1981. 

2.  Sime,  H.  E.  and  Coombs,  M.  J.  (Eds),  Designing  for 
Human -Computer  Communication.  Academic  Press,  Inc.  , 
1983. 


3.  James,  E.  B. ,  "The  User  Interface:  How  We  May  Compute*, 
In  Coombs,  M.  J.  and  Alty,  J.  L.  (Eds),  Computing 

Skills  and  the  User  Interface.  Academic  Press,  Inc.  , 

1981. 


4. 


5. 


Sutherland,  I.  E.  and 
and  Computer  Science”, 
Microelectronics.  W.  H. 


Mead,  C.  A. ,  "Microelectronics 
In  Scientific  American  (eds) 
Freeman,  1977. 


Gaines,  B.  R.  and  Shaw,  H.  L.  G. ,  "Dialog  Engineering”, 
In  Sime,  M.  E.  and  Coombs,  M.  J.  (Eds),  Designing  for 
Human -Computer  Communication.  Academic  Press,  Inc.  , 
1983. 


6.  Shnelderman,  B. ,  Software  Psychology.  Winthrop 

Publishers,  Inc. ,  1980. 

7.  Eason,  K.  D.  and  Damodaran,  L. ,  "The  Needs  of  the 
Commercial  User”,  In  Coombs,  H.  J.  and  Alty,  J.  L. 

(Eds),  Computing  Skills  and  the  User  Interface. 
Academic  Press,  Inc.,  1981. 

8.  Peterson,  J.  L.  and  Silberschatz,  A. ,  Operating  System 

Concepts.  2d  ed. ,  Addison -Wesley  Publishing  Company, 
Inc. ,  1985. 

9.  Reid,  P. ,  "Work  Station  Design,  Activities  and  Display 

Techniques",  In  Monk,  A.  ( ed ) ,  Fundamentals  of  Human - 
Computer  Interaction.  Academic  Press,  Inc. ,  1984. 

10.  Bolt,  R.  A. ,  The  Human  Interface  Where  People  and 
Computers  Meet.  Lifetime  Learning  Publications,  1984. 

11.  Stoner,  J.  A.  F. ,  Management.  2d  ed. ,  Prentice-Hall, 

Inc. ,  1982. 

12.  Sayles,  L.  R.  and  Strauss,  G. ,  Human  Behavior  in 

Organizations.  Prentice-Hall,  Inc. ,  1968. 


128 


Lawrence 


INITIAL  DISTRIBUTION  LIST 


No. 


Defense  Technical  Information  Center 
Cameron  Station 

Alexandria,  Virginia  22304-6145 

Library,  Code  0142 

Naval  Postgraduate  School 

Monterey,  California  93943-5002 

Dr.  Tung  X.  Bui,  Code  54Bd 
Department  of  Administrative  Sciences 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

Dr.  T.  R.  Sivasankar an.  Code  54Sj 
Department  of  Administrative  Sciences 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

Computer  Technology  Programs,  Code  37 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 


Copies 

2 

2 

1 

1 

1 


LCDR  D.  C.  Moore 
3206  Westbourne  Dr. 
Antioch,  California  94123 


4 


